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APPS TRACT 


This thesis proposes a Report Originating System 
to provide afloat and small commands with the 
capability of automatic data processing assistance in 
report generation. The discussed system is completely 
implementable in small, inexpensive general purpose 
Microcomputer hardware. The principal benefit of the 
system lies in its ability to prompt the user to 
solicit the information required to be submitted in 
the nut апа to partially analyze the user's 
responses for correctness of form and content. Such 
computerized assistance should result in higher report 
quality and the concomitant reduction of correcting 
nessage tread 1E The Report Originating System 
incorporates a iine editing capability which lends 
Bi sol Ne das Xx: editing process. Thus, frequently 
modified locally prepared documents such as unit 
instructicns and directives can be originated and 


updated with this system. 
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With the increased use of computers in military 
communications, ccmmand and control, a trend towards highly 
formatted message reports has occurred. A high degree of 
formatting in a report is conducive to machine processing of 
em ©reDOrLt Without ths need for human intervention. This, 
in turn, allcws processing a greater amount of data than was 


feasible in a manually oriented environment. 


Although the advent or machine processable reports has 
been a boon to report recipients it has generated prcblens 
for the homer originator. То be useful, a formatted report 
must be precise; there is no room for either syntax or 
content errors. While in manually processed reports, the 
Originator was granted some degree of compositional freedon, 
the great variety exhibited by ordinary prose 1s 
incompatible with contemporary automated report processing. 
Reports intended for direct computer consumption must be 
Strictly formatted and the computer is intollerent of errors 
in syntax or content. Satisfying the computer's demand for 
precise formatting is a difficult and time consuming task. 
With the advent of machine readable formatted reports this 
odious burden has been exported from the staff or the 


command center to the report writer in the field. 


To rađuce the submission of erroneous formatted reports, 
a great deal of attention is given to the preparaticn of 
these messages. For example, the Department of Derense 
provides a mobile instructional team to present a two week 
course to middle management officers on Force Status 


Reporting. This emphasis has increased the burden of the 





EO eda»snistrator and has detracted from his other 
professional duties. Needless to say, computer acceptable 
report formats have not been popularly received in the 
fleet. 


The computer can be used to help the shipboard manager 
Write error free reports more quickly. This thesis proposes 
the implementation of a Report Originating System to provide 
such a function. The Report Originating System was 
initially developed by LCDR J. G. Holyoak [4]. That system 
was tailored specifically to the Naval Force Status Reort. 
The goals of the present work were to broaden the 
applicability of the Report Originating System to enccmpass 
EN ioEMaAtted and partially formatted reports, to strengthen 
the system's error detecting capabilities, and to simplify 
and fully document the user's command repertoire. A great 
Portion of the original code remains intact and the original 
data structures are largely unchanged. The majcr coding 
modifications dealt with iaproving the editing facilities, 
Peeviaqing the ability to handle multiple lines of text, 
extending the error analysis capability and expanding the 
system to handle larger size documents. The software 
documentation was expanded considerably, not only to 
facilitate maintenance but also to serve as a design 
document in the event that the Report Originating System is 


rewritten in anotner language for another computer. 


In tne next chapter, tne events leading up to formatted 
rerorts are discussed. Tne Report Originating System 
concepts and constructs are examined in Chapter III while 
the programmatic details of the system are discussed in 
Chapter IV. Recommendations for further development and 
conclusicns are consid2red in Chapters V and VI 
respectively. The three appendices provide detailed 


guidance to users of the system. 





The information reporting requirements levied upon the 
commanding officer ofa naval Ship have increased markedly 
in recent years. This phenomenon is primarily due to two 
factors: the ability to communicate reliably to almost any 
point on the earth and the ability to handle and condense an 
enormous vclume O £ information to a succinct and 
comprenensible quantity. Reliable communications stem from 
the technological strides in communications electronics made 
during the last three decades. The ability to process large 
ШЕ ies cf information is a result of the digital 
computer. Knowing that it is possible to receive and 
Er late data Prom units deployed around the world, the top 
echelons cf ccmmand nave found it very easy to demand new 
reports frc» subordinate units for areas of high level 


Interest. 


In recent years, there have been attempts to reduce tne 
amount of paperwork generated within the Department of 
Defense. DEI) Secretary of Defense Melvin Z. Laird 
directed that all DOD activities review and eliminate 
paperwork that was counterproductive to efficient management 
efforts. A year earlier, the Vice Chief of Naval Operations 
solicited the aid of the Naval Audit Service to perform an 
audit on fleet reporting requirements. The Naval Audit 
Service was in the midst of its audit when the Laird policy 
was decreed. Although there was considerable motivation to 
reduce the problem, the Naval Audit Service's findings 
shewed that the situation had worsened rather than improved. 
Of 147 specific reporting requirements analyzed, 24 percent 


were redundant. By 1973 the 147 required reports had grown 





ОООО 2]. he best that can be said about our progress in 
reducing reports is that our efforts may have slowed the 


rate of growth. 


When discussing the enormous reporting problems within 
the Department of Defense, one often loses sight of the 
@ridin of the information. While the plethora One 
information readily available to the highest echelcns of 
command may often allow top management to respond quickly 
and accurately to impending crises, this information is not 
gathered without cost. In today's Navy, the originators of 
this information, the units of the fleet, usually must 
operata without the benefit of automated information 
processing. This means that each bit of data processed in 
the Pentagon's infcrmation system was introduced into the 
data base by laborious means. Time spent gathering, 
collating and preparing data for submission was not spent on 
improving operational readiness. Although we have not 
reduced the operational responsibilities of commanding 
officers, we have greatly increased their administrative 
responsibilities. This additional administrative burden has 
been added usually without a commensurate strengthening of 


the capability to deal with increased paperwork. 


One attempt by the Navy to reduce reporting requirements 
4as the Composite Reporting (COMPREP) study concluded in 
Jünes 197/5; The goal of this study was to devise one 
composite report that would combine the information 
requirements of the Naval Force Status Report (NAVFORSTAT), 
Jovement Report (MOVREP), Casualty Report (CASREPT) and 
Emergency  MILSTRIF (Military Standard Recquisitioning and 
Issue Proceedures). The study developed the reporting 
Structure, training and software necessary to accomplish 
Gres goal. Based on the results of this study, the Naval 


Electronics System Command recommended that the COMPREP 
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system be implemented using a dedicated microprocessor to 


support the system [6]. 


I xchnessmvypboard level, an originator or "drafter" of a 
report usually works in the following manner. The last 
example of the submitted report is reviewed to determine 
what in that report remains pertinent. The information that 
is unchanged since the last submission is copied inte the 
‘new report along with other data reflecting changes in the 
current status. This process of selective plagiarism is 
almost universal. Selection of a pragmatic model upon which 
to base the report assists the drafter in spending the least 
amcunt of his time in report generation while affording the 
greatest confidence that the report will be accepted. The 
goal of acceptability frequently competes with the goal of 
accuracy. This method of report generation is particularly 


adaptable to data processing assistance. 


Since efforts to reduce have not been successful, 
alternate approaches to reducing the reporting burden on 
fleet units is indicated. If we can not eliminate, at least 
we can assist. The preceding paragraph inferred that the 
computer, whose appetite for data partially created the 
report problem, may also be a key to a solution. By 
transferring the reported information from paper to a mediun 
that can be accessed by computer, modern data processing 
methods can te applied to the problem. The information that 
remains unchanged between individual reports could be 
DOT EE included in the new report; other information could 
be edited to reflect the modified situation. The commercial 
world is well on its way towards automated reporting and 
information processing. The computer industry has responded 
with the development of hardware and software appropriate to 
the task. These capabilities can now be provided to the 


Small military command at a moderate cost. 
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I i ONEEPORT ORNTPOTNATIPNG SYSTEM CONCEPTS AND CONSTRUCTS 
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The Report Originating System is composed of two 
G@@puter programs, CREATE and ROS, written in the  PL/M 
programming language for an 3080 based microcomputer. The 
equipment used to implement the Report Originating System 
Somtetstead Of an Intellec-8 WCS microcomputer with 16,000 
bytes of random access memory, a Shuggart dual floppy disk 
drive and a Datamedia Elite 2500 CRT display and entry 
terminal. Many host computer configurations were feasible; 
this hardware was selected because it was inexpensive and 
was available in the U. S. Naval Postgraduate School's 
Computer Laboratory. The CREATE program consists of 
approximately 4500 bytes of machine code while ROS consists 
of approximately 7200 bytes. These program sizes resulted 
in 7000 and 4000 bytes of memory available as a work area 


after the program and the operating system were loaded. 


Pee GOWCRP TS. 


Reports are typically subdivided into data elements. 
s s correspond to a paragraph or formatted line. Each 
data element generally has associated with it a data label 
which may be a paragraph heading or an acronym used to 
describe the information that follows. The data element has 
been chosen to be the building block upon which the Report 
Originating System is based. Originally, [4] the Report 
Originating System was intended to assist in generating 
highly fcrmatted recurring operational reports such as the 


Naval Forces Status Report (NAVFORSTAT), the Movement Report 


e 








(MOVREP), the Casualty Report (CASREPT) and RAINFORM report. 
IMese TSports are very common, very cryptic and highly prone 
to format errors. Inclusion of a "format free" formatting 
convention broadened the range of application of the Report 
Originating System to include generation of any report or 


document whether primarily formatted or textual. 


Every report, whether formatted GT textual, is 
considered tc be composed of data elements. This is easy to 
envision for highly formatted reports but it also can be 
applied to unformatted reports or documents. These usually 
adhere to the pattern of the naval letter or directive - 
that is, they are divided into various sections, each with 
an identifving paragraph heading followed by text. These 
headings maxke natural data labels in the Report Originating 
System. The concept of the basic report information is 
expanded from the single line of the NAVFORSTAT or MOVREP to 
LEE Secticn or paragraph of a unit instruction. This 


expansion allows a broader range of applicable documents. 


An individual data element is composed of a data label, 
F ED S report information, error analysis information, 
and promptinç information. These segments of the data 
element always appear in this order. A collection of one or 
more data eleaents, preceded by a directory to the data 
element location and terminated by an end of file marker, 
forms a "DAT" (for data base) file. A DAT file is the end 
ore: EO the CREATE program. Figure 1 shows a graphical 


representation of the contents of a DAT file. 
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EX CONSIRUCIS. 


A DAT file contains all the necessary information used 
by the ROS program to generate a specific report. The 
ENNDOsition and construction of the DAT file sections are 


described below. 


1. Data Element Directory. 


Sach DAT file commences with a directory section 
Ealied a RECORD IMAP. This map indicates the initial disk 
address of each of the data elements contained within that 
report. The RECORD MAP section occupies tne first twelve 
128 byte records within the DAT file and provides enough 
space for 96 separate entries. Zach RECORD MAP entry is 16 
bytes (characters) long. The first 14 bytes contain the 
data label while the last two bytes point to the disk 
location of the described data element. To provide for 
variable data label lengths, a data label is preceded by and 
followed by a  delinmiter. Thus, the RECORD МАР can 


accomnodate Gata labels containing twelve or fewer 
characters. Bytes not required to store characters or disk 
location pointers are filled with binary zeros. A byte 


containing binary zeros would look like 00000000 while a 
byte containing the character zero would look like 00110000, 


ne ASCII "zero" character code. 
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24 Data Elements. 


m = == = EE ыш mm = < - ш 


om Ester ion content of a DAT file Ys 
included in the data element section of the file. This 
section contains one or more data elements, up to a maximum 
of 96. A data element should be included for each possible 
data label in a report. Each data element occupies at least 
tnree 128 byte records; one BOT the basic report 
information, one for error analysis information and one for 


prompting information. 


da. asse Report Information. 


The basic report information section of a data 
element is also referred to as the "code area" or "code 
informaticn area". The initial entry in the coded area is 
the data larel bracketed by the delimiters "%" or "!". The 
percentage symbol indicates that the data label is not to be 
included in the final report while the exclamation symboi 
indicates inclusion. The remainder of the coded area 
contains the actual information to be included in the 
report. I£ this information requires more space than 
initialiy provided, additional 128 byte records are 
allocated. The coded area may be subdivided into  subfields 
by using virgules or braces to facilitate error analysis. 
This function is described more completely in Appendix C. 
The end of the code area 1s represented by the end of code 


delimiter (|). 
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Error Analysis Information. 


The next logically sequential area of the DAT 
EI is. occupred by records used for error analysis. This 
area contains error analysis commands separated by  virgules 
or braces to correspond to the subfields of the coded area. 
The error analysis area is terminated by the end of error 


delimiter (2). 


ci PPOonptung Information. 


The third area of a data element is used to 
Store prompting information. Each data element should have 
associated with it a proupting question which indicates to 
the ultimate user the information required by that data 
element. Prompting questions should explicitly ask for the 
sought information and may contain exemplary or amplifying 
information as well. The pronpting information contains as 
Many records as required and is terminated by the end of 


pecapt character (äi, 


The sequence of coded area, error analysis 
Iinzozsmation and prompting information is repeated for each 
data element included in the RECORD MAP. 


3. End Of File. 


After all information has been entered regarding the 
Specific data elements of the report, the end of file 
charactez, a back slash, is used to denote the end of the 
report. When encountered, this symbol will cause any report 


information resident in memory to be written to the disk and 
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E close the DAT file. The DAT file may be reopened and 
modified using the ROS progran. 


The basic repeating structure of the DAT file allows 
initial creation of a report through the CREATE program and 
subsequent definition and modification of the report by the 
ROS program. The DAT file is conposed D logically 
Sequential 128 byte records used to store the information. 
Only 90 bytes of each of these records are used to store the 
actual information; this space is adequate to store a single 
line of text. Most of the remaining bytes are unused except 
ror the bytes used to point to the storage location cf the 
next logically sequential record. These pointers allow 


insertion of data in the middle of an existing file. 


BEZ ZFBPLEHENTATION. 


EG - Doth the CREATE program and the ROS program are 
based on the data structure of the DAT file, both contain 
similar data handling structures. The structures in the ROS 
prcgram are more powerful since it is intended that the ROS 
progran be used to modify the DAT files. Eng la VE ypical 
Llica ОП, the CREATE program would be used to build an 
EE Ad draft" or DAT file. This initial file is composed 
of sequential records analagous to the sequential lines of a 
rough draft. Limited editing facilities are provided in the 
CREATE program Since most changes during the CREATE 
execution would correct input errors. The ROS program 
provides nore elaborate editing facilities to allow 
insertion and deletion of text, rapid accessing of specific 
records witnin the DAT file as well as modifying the current 
line. This capability requires the use of the record 


pointer system inccrporated at the end of each record. 
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AWpirfrication of the functioning of each subroutine in 
ROS and CREATE is provided in the next chapter. This 
information 15 provided to assist in further progran 
development and Maintenance. The three appendices 
ennumerate the use of ROS and CREATE and of the line editor 


incorporated in each. 
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The Report Originating System is composed of two 
independent software programs. The principal program, ROS, 
is the nucleus of the system and generates the desired 
report using previously stored data as a basis of 
information. The CREATE program produces the data base for 
a specific report from which the ROS program may generate 


reports. 


The CREATE program is a general software tool used to 
produce a data Fase named a DAT file. Each DAT file is 
specifically tailored to the requirements of the ultimate 
user and to the format of a specific report. Therefore, 
each user wiil have several DAT files available on 
individual Giskettes to meet his varying reporting needs. A 
BEEN EE DAT file is composed by inputting information 
concerning base-line information for the report, error 
analysis criteria and prompting questions. The details of 
the CREATE program concepts and operation are explained in 


detail in Section B and in Appendix C. 


The ROS program uses the information contained within 
mis individual DAT files as input. The ROS program contains 
the necessary data handling structures to allow the system 
User to Wake appropriate modifications to this initial data 
SO that it will reflect the currently reported status. The 
ROS program will output a new file named a Message (MSG) 
file as well as modifying the composition of data within the 
Dam file. This  MSG file contains all the required report 


information ir a format suitable for transmission to the 
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peguesting authority. ROS program details may be found in 


mye next section and in Appendix A. 


The software as described in the following pages 
Significantly reflects the  microcomputer system in which 
these programs were implemented. Again, the specific 
microcomputer system used was chosen primarily because it 
was available. Many suitable new commercial microcomputer 
Systems have appeared since the inception of this project. 
The following discussion of program structure is intended to 
assist any further development or maintenance of the Report 
Seo ginating System on the Intellec-8 system or the 
development of a comparable software package on another 


systen. 


A. ROS PROGRAM ORGANIZATION. 


The ROS program is the instrument used by report 
drafters to originate reports required by higher authority. 
A copy of the program appears at the end of this thesis. 
The Report Originating System is written in the PL/M high 
level programming language, compiled on an IBM- 360/67 
conputer and executed on an Intellec-8 (8080  rased) 
Microcomputer using the CP/M monitor control program. The 
program is divided into five modules: Operating Systen 
Interface; arta lazation; Editing; Error Analysis and 


Output. Each of these modules will be discussed in turn. 


1. Operating System Inte 


The Operating System Interface Module provides the 
interface between the ROS program and the CP/M monitor 


comerol program. Principally, this module provides the 
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Input/Output (I/O) operations necessary for the program. 
The module consists of 18 subroutines most of which 
erypticly pass a "function number" and an "information 
address" from the ROS program to the CP/M via a system entry 
point named "ENTRY". Varying the function number provides 
various capabilities such as reading from and writing to 
peripheral devices, opening, closing and searching files and 
transferring data between memory and diskette storage. 
Altogether there are 23 distinct I/O operations that may be 
performed by the CP/M system. These are covered in detail 
N ie CP/M INTERFACE GUIDE [2]. The subroutines comprising 
the Operating System Interface Module fall into three 


functional groups discussed below. 


a. Console Input/Output. 


C) CRIN ~- Defines the input port number Гог 


the conscle and extracts ASCII coded information from that 


port representing characters displayed on the console. 


(2) Hef ne calls for another character to De 


read from the console and then translates lower case ASCII 


characters to upper case ASCII for internal representation. 


(ED PREMTEHAR - iranpnsmits ASEIT fron 


#edory location, through the computer output port, to the 


comsole for display. 


(4) PRINTCHARI - Determines when a control 
character is encountered and transmits the character from 
memory to the console. Character will be preceeded Dy an 


üp-arrow. 


(5) СК - Displays a carriage return and a 


line feed (i.e. goes to the beginning of the next line). 
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(6) HANI e TD plays the string of ASCII 
characters that commences at the given location in memory 
and is terminated with a "$", 


e Diskette Tnput/Outpüt. 


(1) DISKREAD  - Reads the next 128 byte record 
frcm the file tnat ls being accessed. The contents are 
placed in the 128 byte area of memory as specified by the 


Direct Memory Access (DMA) pointer. 


(2) DISKWRITE - Writes the 128 bytes following 


the address specified to the next available record in the 


file being accessed. 


(3) OPEN - Opens the file specified by the 
address passed to this procedure. If the file is not 
located in the directory, a diagnostic message is returned. 
Opening the file allows further transactions with that file 


КО OCCULT. 


(4) CLOSE - Closes the file specified by the 
address passed to this procedure. tiene file 15 EDE 
located in the directory, a diagnostic message is returned. 
Closing the file updates the directory entry for the file 


and terminates further processing of that file. 


OI SEARCH - Searches the directory to match 
the <filename> <filetype> contained in the File Control 
Block (FCB) passed to this procedure. If no match is made, 
a diagnostic message is returned; otherwise the address of 


the first occurrence of <filename> <filetype> is returned. 
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(6) MAKE - Creates a directory entry for 
«filename» &filetype» as represented by the FCB passed to 


this procedure. The file created is initialized to empty. 


| (7) MOVE - Moves the number O bytes 
(characters) from the source location to the destination 
location. Source address, destination address and number of 


bytes (length) are passed as paraneters. 
oy Functions. 


ae ON = A monitor procedure which passes the 
function number and tne address of the information to the 
CP/M. This procedure does not return a value. It is called 


by many of the previously mentioned subroutines. 


(2) MON2 - A monitor procedure providing the 
same function as MON1 except that a return value is 


expected. 


(3) MON3 - A monitor procedure providing the 
same function as MON2 except that the returned value is an 


üxddress' tyre rather than a "byte" type. 


(4) SETSDMA - Sets the Direct Memory Access 
(DMA) address to the address of the 128 byte DMA cuffer 
срестЕтеад. Subsequent disk I/O operations will take place 


starting with the memory location specified. 


(5) LIFTHEAD - Lifts the read/write head from 


miemeeskette drive currently in™use. 


(6) ERROR - This procedure is called from other 


procedures and prints diagnostic messages to tae operator. 
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En Ee i1za tion Hodule. 





The initialization module consists of 14 subprograms 
which open the appropriate DAT file, create a MSG file in 
which to store the output and create working maps to include 
those data elements selected for modification and those data 
elements which are to appear in the resultant “SG file. 
These workirg maps are derived from the responses to data 
element queries initiated by this module. The module 


subroutines may be classified in three functional groups. 
a. File Operations. 


(1) MAKESMSGSFILE - This procedure creates a 
MSG file ccntrol biock (FCB) and creates and opens a. MSG 
f ue. First the procedure inserts the <filetype>, "MSG" 
into the MSG file control block. Next the "extent" and the 
"next record" fields of the DAT FCB are zeroed. A search of 
the directory is made to determine if a MSG file already 
exists; if so, an error message iS returned. Next, a 
directory entry for <filename>.MSG is made and finally, the 


file is opened. 


(2) INIT - This procedure opens the DAT file 
ANS file. First «filename» is moved into the FCB and 
then the procedure calls MAKESMSGÍFILE to create and open a 
BSG file. Next, the <filetype>, "DAT", is moved to the DAT 
Aena the "extent" and "next record" fields of this FCB 
are zeroed. The file <filename>.DAT is opened and then 


checked to see if the file was successfully opened. 
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(3) INC$RM - Increments the record map pointer. 


(3) INCSWM - Increments the working map 
EO MM er. 


(5) PRINTSDATASE - This procedure displays the 
Bata Clement labels associated with a DAT file in order that 
selection of the data elements may be accomplished. This 
procedure walks sequentially through the record map area, 
Strips the data label delimiters (% or !) from the data 
label and displays them. The process is repeated until 
either the last data label has been displayed or a flag has 


been set which ceases the display. 


(6) SAVESEXDSRNSNR - This procedure calculates 
the locaticn of a data element and also calculates the 
number of records associated with the data element. The 
Mi on is comprised of its "extent" and "record number". 
Mie exteme is the first byte in the directory entry, the 
reccrd number is the next byte and the length is calculated 
by computing the difference between the record number cf the 


next data element and cf the present data element. 


Wome KINGS SPACE - Prints blanks egual co p me 
length of the data label. 


(8) CHKSRESPONSE - Goes sequentially through 
all data  eiements checking for responses to queries. Ifa 
"Y" response is given, SAVESEXSRNSNR is called, if — UNI S 
given the next data element is processed and if "S" is given 
Hi response, the interrogation process is stopped for the 


renaining data labels and the program continues execution. 


(9) SMESWE Qnm NE DEDOCEQUDSE locates the 


WORKSMAP arsa in memory, defines the number of data labels 
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to be printed on one CRT line, prints out the GUCEY MS EEC 
DATA ELEMENTS TO WORK WITH", displays data labels and checks 
the responses. If the data elements to be modified have 
been selected, the procedure prints out the query, "SELECT 
DATA ELEMENTS TO BE INCLUDED IN THE REPORT". The selection 
process is repeated with a continuation of the working map 
area being constructed. 


(10) RE-SELECT - This procedure sets the 


E EEE < a 


logical flags which allow SELSWE to create the working map 


area for the data elements to be included in the report. 


(11)  SzTSMEM - The limits of available memory 
are defined and the working map area is set up. The next 
record number to read is entered in the DAT FCB, the number 
of records occuvied is determined and a counter for the 


number of records read is set to zero. 


( #2) OPEB EXT = Sets the "extent" field in the 


PRP Ce and if the DAT FCB is not found in the directory, a 


diagnostic error message is returned. 


(13) READSDSREC - Checks to see if the systen 
is in the proper extent and if not, opens the proper extent, 
Smads th] appropriate record to start with. Reads in the 
128 byte record and checks to see if it was read in 
properly. The number of records read counter is incrementad 
and the data arzea pointer is moved to the beginning of the 
next record. The next record to be read is set to the 
beginning of the TBUFF area which contains the names of the 


files loaded into the transient program area of memory. 


(14) RBADSDAT — Checks to see if the available 
memory has been consumed and if the number cf records read 
is equal to the number of records in that data element. If 


SO, the reading of records is completed. If a new data 
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element is being accessed, the location and number of 
records information is reset. If all records have not been 
read, the next record is read. Finally, the extent and 
record number fields of the DAT FCB are set to the current 


values. 


(jeje SEADSMORS - The current location “of "the 
working map is updated and the extent and the next record 
fields of the DAT FCB are reset. The pointer to the data 
area currently used is saved and the subsequent record is 
read. The location of the working map is saved and the next 
Fo a on of data is updated. This procedure continues to 


read records of multiple record data elements. 


(16) ALLOCATE - Allocates an empty record from 
the freelist area of the diskette to allow insertion of a 
line "n ap existing file. Bookkeeping operations of 
maintaining freelist pointers and of identifying the 
appropriate extent and record for reading and writing 


operations are accomplished. 


(17) FREE - Releases a record after an entire 
line has been deleted from an existing file. The released 


record is placed on tne front of the freelist queue. 


MI ND IG TOL NUM - Eonverts a IIS tE AO AMA SEMA 
digits to a numerical value so that they may be used in 
aritmetic operations. 


ONG - Determines the number of characters 


= MERE шшш 


(19) 


in a specific data label. 
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The Editing Module provides the capability to modify 
Aca orma tion contained within the DAT file. There are 
two modes of operation for this module, the prompted mode 
and the non-pronpted mode. The prompted mode performs the 
editing operations without the user being directly aware 
that they are being accomplished; the non-prompted node 
requires that the user explicitly invoke each of the desired 
editing commands. The Psditing Module is comosed of 27 
subroutines which manipulate characters in the old and new 
buffer areas and implements updating the information stored 
mene DAT file. The subroutines are divided into two 
functional groups; those associated with the line editing 
functions and those associated with updating the information 
contained in the DAT file. The use of the line editor in 
Manipulating information between the old buffer and the new 


buffer is discussed in Appendix B. 
а. Iine-Editing. 


(1) EACKSUP - This procedure affects the new 
line buffer. The new puffer pointer is backspaced one space 
ПО Ка plank is printed followed by a backspace to allow 
Mi Er tion of a new character. If the line is backspaced to 


the beginning position, a bell is sounded. 


(2) MOVESTOSOLD - The contents of the new 


buffer area are moved to the old buffer area and the old and 


NOUS er meinters are reset TO Zero. 


(3) OLD$TO$NEW - The next character in old 


emm, mp zeg mm — 9 rn 


buffer is moved into the new buffer and inserted after the 
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current position of the new buffer pointer. Both old and 


new buffer pointers are incremented. 


(4) ECHOSON - Moves the next character from the 
n (ir to the next position in the new buffer. The 
Eharacter i= displayed on the console CRT. Both the new and 


old buffer pcinters are incremented. 


ООО СОРТ ОЕ =Q If the end ot the old Duffer has 


шо рееп reached, then the procedure ECHOSON is called. 


Otherwise, a bell is sounded. 


(6 PSMOVESON - Moves the contents of the old 


buffer to the new buffer up to the character indicated in 
m old Tuffer. 


NTER - This procedure displays either the 


txJ 


(7) 
NEL MM Character and resets the flag "INSERT". 


(8) PRINTSOLD - Displays the contents of the 


Ir T, including control characters, followed by a 


carriage return and a line feed. 


(9) PRINTSNEW - Displays the contents of the 


(10) PRINISBOTH - Displays the contents of the 


N di ier followed by the contents of the new buffer. 


(11) COPYSERMSOSN у= Copies the remaining 


characters  frcm the old buffer to the new buffer. Displays 


the "+" character when completed. 
(12) BS$0$N - Backspaces both the old and new 


Eu rointers by one character position. If either 


pointer is in the initial buffer position then a bell rings. 
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(13) COBY$ON - Searches the old buffer from the 
ER ni position of the old buffer pointer until the first 
Bgcarrence of the character passed to this procedure. If no 
sd oeceurs,a bell is sounded. Otherwise, the characters 
INR tne current position of the old buffer pointer up to 
the identified character are copied to the new buffer and 


displayed on the screen. 


(14) DELETE - This procedure searches the old 
buffer for the first occurrence of the identified character. 
mur this character is not found, a bell is sounded. 
Otherwise, all characters are deleted up until the  tirst 
@eemkrence Of the specified character and a "X" character is 
displayed in the position of each deleted character. The 
old buffer is finally compressed to remove the empty spaces 


resulting fren the deletions. 


(15) DELSN - resets the old buffer pointer and 
the new buffer pointer to zero and displays the end of file 


Character (back slant) on the console CRT. 


ENS DISPLAYSRAMSOSN — This procedure will print 
DEL GE until the current position of the old buffer 
pointer and then will display the remaining characters in 
the old buffer. The cursor noves to the beginning of the 
next line on the CRT and the contents of the new buffer are 
displayed. 

(17) ЕШ О ~ The characters strom tie rr rn 
pesrtionm of the 014 buffer pointer up to the end of the old 
buffer are deleted. Percentage signs are displayed in place 
of the deleted characters. If there are no characters in 


the old buffer, a bell is sounded. 
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(18) ESCAPE - This procedure turns off any 
Special meaning of the character to follow and enters the 
character into the new buffer. This procedure may be used 


to override the action of extended line editor commands. 


(19) PRINTSTAB - Enters the special tab 
Character as the next character in the new buffer and 
displays tne tab character on the console. If the tabulation 
will exceed the allowed size of the new buffer, a bell is 


sounded. 


(20) BEGINSWRD - This procedure backspaces to 


IE character of a word. 


b. Updating Procedures. 


( 1) INCSDA - Increments the pointer in the 


Fil ren: DAT file that points to the character accessed. 


(2) TuE SEA.  TnErements the pointer tol 


Pecord containing the information base in the DAT file. 


CO 


(3) INCSER - Increments the pointer to the 


record containing the error analysis information in the DAT 
File. 


(4)  MOVESDLSNEW - Moves the data label frcm the 
old buffer to the new buffer. If the fully prompted mode is 
in effect, the characters are merely moved to the new 
buffer; if the non-prompted mode is in use, the characters 
are moved to the new buffer and are also displayed on the 


console. 


w 
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(5) MOVESCODESOLD - The data base information 
lE moved from the DAT file to the old buffer for editing. 
Enaracters are moved singularly until the end of code 
character (|) is encountered. If the non-prompted mode has 
been selected, characters are  echoed as they are moved. 
“in all characters have been moved to the old buffer, 
MOVESDLSNEW is calied and the data label is moved to the new 
Buffer. 

(6) SEISPIR - This procedure sets pointers to 
the beginning о the error analysis Section Mande 
beginning of tne pronpting question area. 


(7) NEXTSDE - This procedure sets up the system 


MO: a data clement. First MOVESCODESOLD is called 


КОКЮС ШОО DY INCSDA and SETSPTR. 


(D 


(8) UPDATESDAT - Updates the information to be 
included in the DAT file. Characters are transferred from 
the new buffer to a holding area called CODESA, starting 
With the character following the data label up to the end of 
the new buffer. The end of code delimiter (|) is inserted 
at the end of the transferred data. This routine 
repetitively calls the subroutine INSSINC which transfers 


Elia data one character at a time. 


ü. Error Module. 


Ihe error nodules Checks for possible error 
conditions and performs the error analysis operations on the 
edited data. Error commands contained in the error command 
records of the DAT file are interpreted and determine the 
comparative procedures to be executed. Procedures which 


accomplish the desired еггог checking process are 
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eer porated within this module. Utility functions, such as 
typing individual characters as alphabetic or numeric, are 
included and error warning diagnostic messages for display 
to the operator are available. The Error Module also 
contains the procedure LEDIT which provides the line editing 
capability. The module is divided into the Interpretation, 


Error Checking, Utility and Editing groups. 


a. Utility Group. 


(1) RESENTER - The contents of the new buffer 
are moved to the old buffer and the updated contents of the 
old buffer are displaved followed by the contents of the new 
buffer. This confirms that the updating process has been 


acccmplished without error. 


(2) WARNING - Displays various warning messages 


moen an erroneous condition occurs. 


(3) INCSNB - Increments a character pointer in 


—— mie 


the new buffer. 


(4) SPSPpDSCON = Used to identify the 


punctuation characters, spac¢, period and comma. 


(5) ALPHA - Defines alphabetic characters to be 
letters A - 2, the characters CTRL A - CTRL Z or a period, 


space or comma. 


(6) NUMERIC - Defines numeric characters as the 


digits 0 - 9, the minus sign (-) or space, period or comma. 
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(7) NEXTSSF - Walks through the DAT file to get 
the next, subrield of a data element. Pointers to the 
information area and data analysis area are incremented 


appropriately. 


b. Interpretation Group. 


Gi DOSECMD — Checks for a null error command 
Which returns control to the calling statement. Otherwise, 
LEanorccomBands are identified by the first letter of the 
command and the appropriate error checking procedure is 


called. 


c. XUNrOr Checking Group, 


(1)  CHRSALPHMA - Checks the contents of the new 
buffer up to the next error analysis delimiter (virgule or 
brace) for alphabetic characters. A warning message is 


G IJ dit other characters are encountsred. 


(2) CHKSNUMERIC - Checks the contents of the 


new buffer up to the next delimiter for numeric characters. 


A warning message is displayed on an exception basis. 


(3) HK SPERCENT = Compares the revised 
numerical ccntents of a subfield against the previous 
COMENTS. I£ the difference exceeds a specified amount, a 


warning message is displayed. 


(4) CHE: 
the new subfield are s 
subfield. May be used to check report serial numbers. 


¡SNOUENCE OER ii the contents: oi 
eguential to the contents of tne old 
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(5) CHKSLENGTH - Checks if the contents of the 


new subfield occupy the same number of character positions 
as the old subfield. 


» (6) CHKSERR - Walks through the error analysis 
record of the DAT file one subfield at a time until the end 
of error character (4) is encountered. Individual error 
commands are interpreted through calls on DOSCMD. The 


pointer in the error analysis record is incrementad. 


(7) ASKSQUESTION - Displays the PEORD cane 


question applicable to the subfield under consideration. 


(8) CHKSANSWER - Checks the response given 
under the prempted mode for compliance with error commands. 


Performs the same function as CHK$ERR. 


(9) ENDSIP - Checks if the contents of the new 
buffer will cverwrite the error analysis section of the DAT 
file, places a virgule after the response to the prompted 


question and accomplishes error analysis for that response. 
Gee  Bde ting. 


(1) LEDIT - Acts as an input interpreter While 
in the edit mode. Input strings are first checked for basic 
line editor commands, then for extended line editor 
commands. The appropriate editing routines are called in 
these cases. If a rubout character is entered, the new 
buffer pointer is backspaced. If none of the above special 
Characters are encountered, input characters are echoed 
ME is new buffer is filled. When this occurs, a bell is 


sounded. 
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ОО О put Module. 


This module performs the actual updating of the 
edited information in the DAT file and also incorporates 
this information into the MSG file. Included are routines 
tO perform thé necessary file operations and an EDIT 


procedure which controls the editing process. 
a. MSG File Operations. 


(1) INCSMSG - Creates a buffer to be used to 
transfer data between the absolute addresses 80 - 100 
hexadecimal. The diskette directory is checked to see if a 
MSG file exists and returns a warning if it does. A pointer 


ШОО ОО (ea rrer 1S incremented with each call. 


(2) MOVESMSG  - Copies the edited information, 
character by character, into the DAT file. A check is made 
to see if the data label is to be included in the report. 
Characters are moved from the DAT file to the MSG file until 
an end of cede delimiter ({) is encountered. The MSG file 


line is ended with a carriage return and a line feed. 


(3) ARITESMSG - Writes the record currently 


HEES sed to the MSG file. 


GE OSESETLES - Closes the MSG file and saves 


vm фы Imo ee ee “ Q ee 


the appropriate extent and record information. 
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IPT Pile and Utility Operations. 


(1) BLANKSBUF - Blanks out the contents of the 


CU EASENNEXTSDE — Brings. in the information 
concerning the next selected data element into the transfer 
buffer. Working map pointers are incremented to indicate 


the next data element. 


(3) UPDATESDATSFILE - Coordinates the actual 
updating of the DAT file by calling MOVESMSG. DAT file 
extent and record entries in the DAT FCB are updated. This 


process is continued for all data elements. 


e Miting Coordination. 


(1) EDIT - Coordinates the editing process for 
the prompted and non-prompted modes. If in the prompted 
mode, prompting questions are displayed and then LEDIT is 
called to handle the response and the response is checked. 
This sequence continues for all subfields for that data 
element. In the non-prompted mode,  LzDIT is called to 
process the desired changes and the entered data undergoes 
error analysis. If a warning has resulted from error 
analysis, the same data element is reprocessed. Otherwise, 
the DAT file is updated, the old and new buffers are blanked 
out and the next data element is processed. This pattern is 
continued until the end of file character (back slant) is 


encountered and then the MSG file is created and closed. 
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B. CREATE PROGRAM ORGANIZATION. 


The CREATE program is used by commands requiring reports 
from their subordinates to develop a DAT file with its data 
base of reporting information. The CREATE program is also 
available to the general user to provide a local capability 
of generating DAT files for unique reports or DAT files for 
interia use. Eu Morder to assurse "report unirtornudi*y end 
Gentent reliability, it is imperative that standardized DAT 
files be produced and distributed by the highest possible 
Bevel in the chain of command. A copy of the CREATE prograr 
is included at the end of this thesis. The program was 
written in the PL/M programming language, compiled on an 
IBM-360/67 computer and designed for execution on an 
Intellec-8 microcomputer using the CP/M operating system. 
The program is divided into three main modules: 
Initialization-Interface; Input-Editing and Finish. Many of 
the subroutines discussed in the following sections are also 


ШОШЫП in the ROS program software. 


MED tIalization-interface Module. 


-—-— Q r r - s f w r c a a “ord eee <= ë s <s s 


The “nd t 1a di zation-Intertfacese Modules includes 
subprograzs to provide an interface between the CREATE 
pss rs data structures and the CP/H GORDEL monitor 
program. The module opens a DAT file if one has not already 
been opened under that particular <filename> on the diskette 


in use. 
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a. Console Input/Output. 


(1) EE е input port number tor 
the conscle and extracts ASCII coded information from that 


port representing characters displayed on the console. 


(20 READC - Calls for another character to be 
read from the console and then translates lower case ASCII 


characters tc upper case ASCII for internal representation. 


(3) PRINICHAR - Transnits ASCII character fron 


memory location, through the computer output port, to the 


console for display. 


(u)  PRINTCHARI - Determines when a centrol 
Character is encountered and transmits the character from 
memory to the conscle. Character will be preceeded by an 


up-arrow. 


(5) CRLF =- Displays a carriage return and a 
line feed (i.e. goes to the beginning of the next line). 

(6) RINT displays themes Sng od. Sid 
Characters that commences at the given location in memory 


wn terminated with a "5", 
b. Diskette Input/Output. 


(1) MOVE - "Moves the number of bytes 
EE Keeser from the source location to the destination 
location. Source address, destination address and number of 


bytes (length) are passed as parameters. 
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(2) FILL - Used to fill the destination record 
with a particular character passed to this routine. FILL 


may be used to pad out a record with blanks or zeros. 


(3) MONI - A monitor procedure which passes the 
function number and the address of the information to the 
CP/M. This procedure does not return a value. It is called 


by many of the previously mentioned subroutines. 


(4) HON2 - A monitor procedure providing the 
same Function as MONI except that a return value is 


expected, 


(5) 340853 - à monitor procedure providing the 
same function as MON2 except that the returned value is an 


MES 4 tyre rather than a "byte" type. 


(6) ERROR - This procedure is called from other 


procedures and prints diagnostic messages to the operator. 


(7) DIGTTOSNUMEA- Converts a string o£ ASCII 


digits to a numerical value so that they may be used in 


numeric operations. 


The Input-Editing Module accepts entered information 
and builds the DAT file Opened by the 
Initialization-Interface Module. The contents of a DAT file 
are a repetitive sequence of data base or "code 
Bn сп", "error commands' and “prompt information". 
These three categories of information are required for each 
data element included in the report. Although null or empty 


categories are allowed (but not recommended), at least one 
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128 byte record is allocated for each. Te the Input 
informaticn exceeds the initial 128 byte allocation, 
additional sequential records are provided. Since the order 
diese three types of information is the keystone of the 
Report Originating System software, it is imperative that 
data entered during the creation of a DAT file conform to 


this sequence. 


do out. 


(1) EQU? IIS DAS Plays cole che) oper atorerd 
prompting message to input coded information, error commands 


OL prompt information. 
(2) INCSRM - Increments the record map pointer. 


(3) GOSNEXTSREC - Increments the storage 
pointer to the next even record boundary and increments the 
counter for the number of records utilized. For every 128 
records used, the extent counter iS incremented and the 
record number counter is reset to zero. The number ot 


remaining records is decremented. 


(4) MOVESDL - Moves the data label into the 


record map area and moves the extent and record numbers into 


the two bytes following the data label. 
bemeeeatting. 


(1) BACKSUP - This procedure affects the new 
line buffer. The new buffer pointer is backspaced one space 
aná a blank is printed followed by a backspace to allow 
ir On Of a new character. If the line is backspaced to 


BHewoeginning position, a bell is sounded. 
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(2)  MOVESTOSOLD - The contents of the new 


buffer area are moved to the old buffer area and the old and 


(mewmouticr pcinters are reset to zero. 


(3) ECHOSON - Moves the next character from the 
Ed au ier tc the next position in the new buffer. The 
Enacacter Js displayed on the console CRT. Both the new and 


l er polnters are incremented. 


(4) COPYSONE - Ti the end of the old buffer has 


not been reached, then the procedure  ECHO$ON is called. 


Otherwise, a bell is sounded. 


(5) PSMOVESON - Moves the contents of the old 


buffer tc the new bufrer up to the character indicated in 
Fü old buffer. 


(6) ENTER - This procedure displays either the 
K character and resets the flag "INSERT". 


(7) PRINTSOLD - Displays the contents of the 


cer, including control characters, followed py a 


carriage return and a line feed. 


(8) PRINT 


new 5urfer including c 


EW - Displays the contents of the 


SN 
con 


trol characters. 


(СО || BRA: BOTE Dispiays tie contents of the 
old buffer fcllowed by the contents of the new buffer. 
(10) COPYSRMSOSN = Copies the remaining 


characters from the old buffer to the new buffer. Displays 


the "+" character when completed. 
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(11) BS$O$SN  - Backspaces both the old and new 
ШШ ет peinters by one character position. If either 
EN oe: is in the initial buffer position then a bell is 


sounded. 


(12) COPYSON - Searches the old buffer from the 
Est position of the old buffer pointer until. the first 
occurrence of the character passed to this procedure. If no 
E c USoccurs, a bell is sounded. Otherwise, the characters 
БООЙ Mene current position of the old buffer pointer until 
the identified character are copied to old buffer pointer up 
to the identified character are copied to the new buffer and 


displayed on the screen. 


(13) DELETE - This procedure searches the old 
buf fer for the first occurrence of the identified character. 
Ef this character is not found, a bell is sounded. 
Otherwise, all characters are deleted up until the first 
occurrence of the specified character and a "X" character is 
displayed in the position of each deleted character. The 
old buffer is finally compressed to remove the empty spaces 


Besuiting frcm the deletions. 


(14) DESNA Ee 
the new tuffer pointer to zero and displays the end of file 


character (back slant) on the console CRT. 


(15) DISPLAYSRMSOSN - This procedure will print 
DES WE until the current position of the old buffer 
pointer and then will display the remaining characters in 
ке оа buffer. The cursor moves to tne beginning of the 
next line on the CRT and the contents of the new buffer are 


displayed. 
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(16) DELSO - The characters from the current 
position of the old buffer pointer up to the end of the old 
buffer are deleted. Percentage signs are displayed in place 
of the deleted characters. If there are no characters in 
the old tuffer, a bell is sounded. 


(17) ESCAPE This pros ear o ns et. ans 
special meaning of the character to follow and enters the 
character into the new buffer. This procedure may be used 


to override the action of extended line editcr commands. 


(18) PRINTSTAB - Enters the special tab 
character as the next character in the new buffer and 
displays the tab character on the console. If the tabulation 
Will exceed the allowed size of the new buffer, a bell is 


scunded. 


(Moje DIT - Acts as an input Interpreter white 
in tke edit mode. Input strings are first checked for basic 
line editor commands, then for extendea line editor 
commands. The appropriate editing routines are called in 
these cases. If a rubout character is entered, the new 
buffer pointer is backspaced. If none of the above special 
Characters are encountered, input characters are echoed 
ON ii: Hek buffer is filled. When this occurs, a bell is 


sounded. 


(20) CONTSFILL - Stores the contents of the old 


buffer into the appropriate record in memory and moves the 
E 
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The Finish Module performs the necessary storing, 
writing and otner file handling operations required wnen the 
data for a particular information category has been entered. 
If available memory has been consumed, the memory image of 
the edited data is written to the diskette and memory 
pointers are reset to allow further Taput: Upon 
encountering an end of code, end cf error command or end of 
prcmpt  deliriter, the contents of the old buffer are 
transferred to the appropriate record in memory. When an 
end of file delimiter is encountered, the necessary storage 


and file closing orerations are accomplished. 


a. Data Transfer. 


(ШОШ MERITIS - Writes all records in memory out to 
the diskette, makes the appropriate directory entry, checks 
if the records were properly written to the diskette, resets 
the counter for the number of remaining records and resets 


the storage pointer to the appropriate memory address. 


(2) INCSSTORE - Increments the storage pointer 
and writes records in memory to the diskette if a memory 


overflow is rossible. 


( 3) MOYESSTORE - Stores input information into 


the apprcpriate record in memory. 
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DEd ot Segment. 


(i) FILLSCODE 
record currently in use wi 

(2) ENDSDL - When an end of code delimiter (I) 
is encountered in input, the next available record is 
allocated by a call to GOSNEXTSREC, the directory entry is 
Mace, the input information is stored in the record, the 
storage pointer is incremented and the end of code delimiter 
is appended to the input information. The remainder of the 
record is filled with binary zeros. The prompt message to 


input error commands is displayed. 


(3) ENDSREC - When an end of prompt delimiter 
(4) is enccuntered, the input prompt information is stored 
in the record in use, the storage pointer is incremented, 
eae end of prompt character is written into the record and 
the crompt message for additional code informaticn is 


displayed. 


(NS ENDSERR > hen ап end от error ccmmand 
delimiter  (-) is encountered, the error commands are stored 
in the record allocated, the storage pointer is incremented, 
the end cf error command character is written into the 
record and the prompt message for prompting informaticn is 


displayed. 


(5) ENDSF - Called when the end of file 
character (back slant) is entered. Any input information is 
Hund n the record in use followed by the end of file 
Пе иша сег. The storage pointer is incremented, the records 
in memory are written to the diskette, the record nap 


pointer is incremented and the end of code character ({) is 


47 









placed following the last entry in the record map. The 
extent and record number of the next record to use are 


stored and the DAT file is closed. 
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V. RECOMMENDATIONS 


The goal of this thesis was to present a method by which 
computer assistance in report generation could be achieved. 
The project development was implemented using hardware and 
Software assets at the Naval Postgraduate School. Wnile 
that equipment was suitable, small computers supporting 
commercialiy-availabl2 text Processing systems are now 
available. It is envisioned that virtually any general 
purpose microcomputer could form the nucleus for the 
iaplenentaticn of the Report Originating System in the 
fleet. This chapter discusses some of the known limitations 


of the Intellec-8 pased Report Originating System. 


N МШЕ ТИЕ INSERTIONS. 


Mme eaitina facilities of the ROS program require 
EX insertion and filing of each additional line of 
data. The line editor would be more convenient for 
preparation cf lengthy textual material such as instructions 
ads ctiwes if it provided the capability to insert 
dt. pie Times of text prior to the filing operation. Such 
M eaa e vould prove particularly beneficial in the 


revision c£ lengthy textual material. 
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B. OPERATING SYSTEM AND PROGRAMMING LANGUAGE. 


Wen this project was started, the PL/M prograaming 
language and the CP/M operating system were one of the more 
powerful aed higher level combinations available for the 
8080 family of icrocomputers. Since then, 8080 based 
systems have become more widely used for general purpose 
computing and have influenced the development of more 
era software support for this architecture. One aspect 
in the evclution of these microcomputers has been the 
implementaticn of self hosted compilers for a variety of 
high level programming languages. A similar evolutionary 
process has cccurred in the area of microcomputer operating 
systems. State oi the art commercial software could enhance 
the Report Originating System in two ways. The use of a 
higher level language (compared to PL/M) could broaden the 
Capabilities of the system by improving file handling and 
data manipulation. Additionally, implementation of a nore 
popular language would simplify software maintenance efforts 
because it would not be necessary to train system 
development programmers in a new language. One candidate 
for a programning language would be the Extended Basic 
language. This language provides a good balance On 
programming potential and ease of use. Whatever choice is 
made, it is recommended that the compiler be hosted in the 


Microcomputer to facilitate development and maintenance. 


Cee ASTON. OF THE CREATE PROGRAM EDITOR. 


The CREATE program currently does not provide the data 


“O (TOS Capable of supporting the editing facilities of 


50 








mene ROS progran. Aa result,” the basie line editor 
commands in tne CREATE program are limited. Incorporation 
of expanded data structures in CREATE could support a iarger 
set of basic line editor commands equivalent to those found 
mene ROS prcgram. The addition of such structures would 
Bequire Major revision of the CREATE program; it may be 


determined that such revision is unfeasible. 


EES RECH EE ON IN ANOTHER MICROCOMPUTER ARCHITECTURE. 


Although the 8080 family of microcomputers enjoys great 
popularity in the commercial world, this architecture is not 
ссшшоп in the military. Implementation of the Report 
Originating System in another microcomputer architecture may 
enhance the system's appeai in the Navy. The system could 
be recoded to be implemented in existing military computers 
Such as the AN/UYK-7, AN/UYK-14 and AN/UYK-20. New computer 
architectures offered by Digital Equipment Corporation 
“AT ii) and by Texas Instruments  (TI-9900) shouid be 
investigated as possible candidates. Another area of 
available hardware that should be investigated is the 
blcssoming arena of word processing equipment [ 10]. This 
has become a very dynamic and competitive area in data 
processing development with new products being announced 
Gogscancly. One of these off-the-shelf systems could 
accommodate the Rerort Originating Systen. Cne projection 
is that by 1986 word processing system hardware will be 


available for $150, plus the cost of a typewriter { 1]. 
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Mee ERROR ANALYSIS EXPANSION. 


Adanticnal error checking capabilities could be easily 
developed and incorporated in the system. The ability to 
check special number and character sequences such as 
Date-Time Groups, Social Security Account Numbers and 
National Stock Numbers would open the areas of application 
of the systen. For example, Date-Time Groups could be 
checked to see if the date is compatible with the month and 
that the time is a valid 24-hour clock time. Social Security 
Account Numbers could be checked for the appropriate number 
of digits irrespective of whether hyphens are incorporated 
in the format. A pattern for valid National Stock Numbers 
could assist in error detection in supply documents. The 
error analysis capability could be broadened to allow the 
user of the CREATE program to define his own error analysis 
commands for special applications. Statistical information 
concerning the most prevalent types of errors in formatted 
reports should be gathered as a guide to future development 


of standard error analysis. 


Poe root iMG AND LPBUGGING. 


Berore the Report Originating System could be 
implemented outside a laboratory environment, extensive 
testing and debugging efforts must be accomplished. It is 
inevitable that programming inconsistencies exist hidden in 
ROS and CREATE. These need to be detected by an extensive 


testing program. 
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Although this study has focused on a single application 
of computer assistance to the shipboard manager, many 
Management areas besides report generation could benefit 
from data prccessing assistance. In the area of training, a 
general purrose microcomputer system could be used to 
unifornly administer training courses and to automate the 
Maintenance of individual training records. Such a systen 
could also enhance record Keeping functions in personnel 
administraticn and supply accounting. Computation or 
navigational equations to determine ship's position could be 
performed quickly and accurately by a general purpose 
computer. Ali of these potential applications point to the 
desirability for a non-tactical computer system aboard naval 


vessels. 


Ther2 has been a trend in the military to automate 
report handling at the higher levels of command. Format 
free reports are being repiaced by highly formatted, machine 
processable reports. To be useful, these reports must be 
checked for inconsistencies in content and form before being 
processed by the recipient. The optimal time for such error 
checking is before the report is released by the originator. 
The Report Originating System provides the framework that 
can reduce errors during report generation by incorporating 
precise rrompting questions and can perform error analysis 
to identify format irregularities. This latter capability 


may be readily expanded to include a variety of analyses. 


During the development of the Report Originating Systen, 


an attempt was made to make the system easy to use Ly an 
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operator with no prior computer experience. Simplicity of 
Operation is the keystone to such a system's success; the 
most ingenious data processing system will fail if it is not 
easier to use than the current manual method. Develcpment 


of any such system must adhere to this basic tenet. 


The rapid technological progress in the area of 
Microcomputers and the commensurate reduction in 
microcomputer hardware system cost has made Navy-wide 


implementation of such a system a realizable goal. Since 
the preponderance cf computer hardware in the fleet is 
dedicated tc specialized tactical systems and since the 
hardware associated with the Revert Originating System is 


modest in cost, it is desirable that the system, if 


implemented, be based on a standard microcomputer 
architecture which could support a variety crf other 
computaticnal and information management systems. The use 


of standard architecture and of an easy to use high level 
programaing language will facilitate program development and 


system software maintenance. 


In su@mary, the Report Originating System advocated by 
this thesis demonstrates that computer assistance in 
information processing and management is readily supported 
by eur rent Le available computer svstems and can be 
implemented at a modest cost. Such a tool could reduce the 
administrative burdens of the shipboard manager and free hin 


to develop his nautical and naval warfare specialty skills. 





APPENDIX A 


ROS PROGRAM 


User's Manual 


in csreduct ion. 


The primary tool used by the message originator in the 
fleet tc prepare the required report will be the ROS 
program. It is through the ROS program that the user 
interfaces with the data stored within the microcomputer 
System and the ROS program provides assistance to the user 
in the actual generation of the report text. In order to 
generate reports, there is little need for the user to 
understand the details of the program logic; instead he 
merely need know how to use this basic tool to format the 
desired report. Therefore, it is the purpose of this manual 
to provide the ultimate user with a step by step process by 
which he can use the ROS program. This manual describes the 


process implemented on the Intellec-8 microcomputer systen. 


2. Setting Up the System. 


To use the ROS program to generate a report, the user 
must have available a DAT file for that particular report. 
Under normal circumstances, the authority requiring a 
specific  rerert wiil provide all users with a diskette 
containing the necessary DAT file. It is incumbent on this 
aWenority to maintain the distributed DAT files so that 
current revisicns to reporting procedures will always be 


available to the general user. 
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Meewereet user will select the appropriate DAT file, 
insert the diskette into the drive mechanism and initiate 


the system by typing 
ROS <filename> <cr> 


mere <filenane> is the nane of the report to be generated, 
such as FORSTAT or  MOVREP, and <cr> denotes a carriage 
Pecurn.. it is important that the «filename» be exactly the 
Same as the nane given to the DAT file by the originator. 
The system will now be ready to execute the report 


generaticn. 


83- Execution. 


After calling the desired DAT file by means of the 
above convention, the appropriate file will be opened, if in 
fact it exists on that diskette. If a file by the name of 
Srirlename» dces not exist on that diskette, then an error 
Bossage, “DAT FILE NOT PRESENT", will be displayed. This 
indicates toc the user that either the wrong diskette is in 
use or that no DAT file for that specific report name exists 
and that the rrogram CREATE should be used to create a DAT 
lle. Creation of a DAT file is explained in the CREATE 


program user's manual, Appendix C. 


When the appropriate DAT file has been opened, the 
System will respond by displaying the data labels contained 
Within the file. Data labels are names given to a section 
of a report which allow the user to directly access that 
section. A data label usually represents an information 
element cf the required report. For example, in a 
NAVFORSTAT, there are many data labels such as COMDR which 
represents irformation concerning the commanding officer and 
PERSN which represents information concerning personnel. 
The user will respond to the display of the data label by 


КООШО either a Y" or "N" under the label; "Y" indicates 
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the user wishes to modify the information under that label, 
"N" indicates that data label should not be modified. Next 
the system will query which data labels are to be included 
in the report generated. Again the user will type a "Y" or 
AA E Ene data label to indicate inclusion or exclusion, 
respectively. This feature is added since many formatted 
reports require inclusion of only changed data elements for 
most reports but require periodic submission of all data 


elements to verify the data base. 


Tne next system query will concern whether prompting is 
desired. An affirmitive response (Y) by the user will cause 
Ft ry to the fully instructional mode where the user is 
prompted by questions, the answers to which will be tne 
required Fe pore” information. A negative response (N) 
bypasses the promptina questions and allows the user to 
directly edit the information associated with the data 
label. This optional prompting provides DES CEUCECISOna! 
assistance to the unfamiliar user but does not encumber the 


experienced user with the slowness of the prompted node. 


After these preparatory questions have been answered, 
the ROS program is ready to formulate the desired report. 
As a basis, the program uses the information generated and 
modified in previous reports; this information is updated by 
the operator by using the facilities of either the basic 
line editor or the extend2d line editor, both explained in 
the Line Editor User's Manual, Appendix B. Both of the 
editors have the capability to perform the necessary data 
EEN Es tion and “the final choice of line editors is 


furdamentally operator preference. 


If the user has opted for the instructional mode of 
operation, specific questions concerning each of the fields 
for the selected data elements will be written on the 


console's CRT screen. Tt is intended that the command 
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EMEhHority requiring the report (the originator of the DAT 
file) make individual questions unambiguous so the operator 
Gan respond with the correct answer in the required format. 
ME 21 2: Weil as content is critically important for the 
report's usefulness, then it must be made perfectly obvious 
that the response to a particular question must, for 
exanple, be four digits while the response to another 
question may require a two letter input. Careful wording of 
the  prompting questions will allow the operator to respond 


Bapidly and accurately. 


While the operator enters the information sought, the 
ROS program analyses the entered data for errors. This 
analysis may be as simple as checking whether the response 
was alphaketic or numeric or may be so complex as to check 
for tne reasonability of the answer. For example, it may 
suffice to check that the answer is "10" rather than "ten"; 
on tne other hand, the operator may need to be cautioned 
after entering information that shows the number of assigned 
Euconuel increased 500 percent since the last report. If 
the error analysis indicates an error has occurred, a 
diagnostic message will be displayed to the operator who 
Will then have the opportunity to make an appropriate 
correction. In the case of a question of reasonability, the 
second response will be considered authentic. When working 
in the prompted mode with the selected data element, most of 
Ehe line editor's commands are implied. After receiving a 
response from the operator, the system will make the 
mepropriate modifications to the data after the  resronses 
have been received for all queries concerning that 
particular data element. The newly submitted information is 
retained in a buffer until a command is given to update the 
ШЧ data. The operation of this process is explained more 
fully in the Line Editor User's Manual. When the 
information regarding a selected data element has been 


properly updated, the editing process will continue with the 
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next selected data element. The sequence of instructional 
questions, response, error analysis and information updating 
will cohtinue for each data element selected. after all of 
these data elements have been processed, the DAT file will 
be updated to reflect the current information and a message 
file, which can be referenced by <filename>.MSG, will be 
created on tke diskette. The message file will contain all 
the required information in the appropriate format for 


submissicn to the requesting organization. 


The alternate method of ROS program execution is the 
non-instructional mode. This mode is intended for the 
experienced operator who understands the reporting 
requirements and who desires to rapidly edit the report 
information. The non-instructional mode is also prefaced by 
the system queries about data elements. During the editing 
process, the existing infornation for each data element will 
be sequentially displayed and directly edited with the line 
tors facm]ities. The significant difference between 
this mode and the formerly described mode is the omission of 
prompting  quesrtions. This mode also provides the error 
analysis feature provided by the fully prompted mode. IE 
errors are made, the same diagnostic messages will be 
displayed to the operator. it is assumed that the operator 
ux tinately familiar with the proper format. In the 
non-instructicnal mode the editing process is explicit and 
pot implied. Regardless of which line editor is in use, the 
Operator nust issue the necessary editing commands to modify 
and file the desired data and to quit the edit mode. After 
changes have been filed for a particular data element, the 
next selected element may be accessed by using the "NEXT" 
command (&NX). Again, input information wiil undergo the 
Same degree of error analysis. As data eiement responses 


are filed, the next selected data element will be processed. 
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Upon completion of the updating process, the DAT file will 
reflect the latest changes of information and a message file 
Will have been created. 


A report origination session is shown below. Both the 
fully instructional and non-instructional modes are depicted 
to contrast their use. Only the basic line editor's 
facilities have been exercised in each case. Explanation of 
the action of the kasic line editor's commands may be found 


in the Line Editor User's Manual. 
4. Sample Report Originating Session. 


The following sessions represent the origination of a 
typical Naval Force Status (NAVFORSTAT) report. The first 
example shows the updating process using the instructional 
node of operation. The second example implements the same 
Changes but uses the non-instructional mode available in the 
ROS program. In both examples, the basic line editor 
facility is used. Lines displayed by the ROS program are 
bracketed by asterisks (*); lines input by the operator are 
ended with a carriage return (<cr>). Amplifying comments 


are parenthesized and follow the line they pertain to. 


A. Instructicnal Mode. 


*A>* (System is ready) 
ROS FORSTAT <cr> (FORSTAT is name of DAT file) 


PERLECT DATA FLEMENTS YOU DESIRE TO WORK WITH* 


HEADER PEN T TSKCD OPCON ADCON * 
M T Y N NSCE> 
*HOGEO CCMDR ACTIV PERSN NE * 
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N N T TS CI 


(The system would continue to display the remainder of the 
elements in the system, expecting "Y" or "N" responses for 


each.) 


moe er DATA LABELS TO BE INCLUDED IN THE REPORT* 


*HEADER IDENT ТОКСО OPCON ADCON * 
ү y ү N N <cr> 
*HCGEO CCMDR ACTIV PERSN MES 

N N ү Ү<СГ? 


(Again the system would continue to display the remaining 


elements) 

ATO vou wisH TO BP PROMPTED?* 

IES CT? 

*FM USS NEVERSAIL* (Pirst line of HEADER) 
&ENX<cr> ( Go to next line.) 

(Refer to Line Editor User's Manual for command meanings) 
*TO CINCPACFLT MAKALAPA HI* 

ENX<cr> 

*CCMNAVSURPPAC SAN DIEGO CA* 

ENX<cr> 

eeTU 77.7.7* 

Bann 7С 1.2<сг> (Add another addressee) 
x<CTU 76.1.2>* 

EFI<cz> (Files the insertion) 


NOU 76.1.2* 
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&QU<cr> (Finished with changes to HEADER) 
*NAVFORSTAT 012 AS OF 0123452 MAY 77* 

(First line of IDENT section) 

&CE /012/014/<cr> 

*ERROR: NUMBER 15 NOT IN SEQUENCE. RE-ENTER CHANGE* 
ECH /012/013/ <cr> (Increment report number) 
*<NAVFORSTAT 013 AS OF 0123452 MAY 77>* 

SCH /012345/100200/<cr> (Now change the DTG) 
*<NAVFORSTAT 013 AS OF 1002002 MAY 77>* 

&FI <cr> (File the change) 

*NAVFORSTAT 013 AS OF 1002007 MAY 77% 
&QU«cr» (finished with changes to IDENT) 

*WHO IS YOUR TASK ORGANIZATION C CHMANDER?* 
BEESPOND IN THE FORM CTA NNN.N.N*® 

CTU 076.1.2<cr> (TSKCD data has been changed) 
ERAN IS YOUR CURRENT EMPLOY MENT?* 

RESPOND WITH 2 LETTER CODE* 

OP<cr> (ACTIV data has been changed) 

*NAVY ENLISTED PERSONNEL-RESPOND WITH 4 DIGITS* 
ZODNECIURSND STRENGTH?* 

0280<cr> 

FRUTHORIZED SIRENGTH?* 

O22 1<cr> 


sa E TD STRENGTH ?* 
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0198<cr> 
(This is the lest of the selected data elements) 


*A»x 
(The above changes have been made, a message file has been 


created and the system is ready.) 


B. Non-instructional Mode. 


*A»* (System is ready) 
ROS FORSTAT <cr> (FORSTAT is name of DAT file) 


*SELECT DATA ELEMENTS YOU DESIRE TO WORK WITH* 


*HEADER DENT TSAGD OPCON ADCON * 
E Y Y N N<er> 
*HOGEO CORPER ACTIV PERSN NE > 

N N Y SCT? 


TEER Oak LABELS TO BE INCLUDED IN THE REPORT* 


GEEADER T p T SKE. OPCON ADCON * 
Y ү Y N HE Ser? 
*HOGEO COMLR ACTIV PERSN NE * 

N N Y TEER” 


(Again the system would continue to display the remaining 


elements) 

Ош ОШ ТОН TO BE PROMPTED? * 

N^ «cr» 

*FM USS NEVERSALL* (First line of HEADER) 


SNX<CI> 
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BEO CENCPACFLT MAKALAPA HI* 

&ENX<cr> 

*CCMNAYSURFPAC SAN DIEGO CA* 

ENXXCI> 

*CTU 77.7.7* 

CIN CTU 76.1.2<cr> (Add this addresse) 
*"CCTU 76.1.2>* 

ba dér” (File the insertion) 

mort 76.1.2* 

&QU<cr> (Finished with changes to HEADER) 
TNAVFORSTAT 012 AS OF 0123452 MAY 77* 
(First lire of IDENT section) 

ECH /012/013/ <cr> (Increment the report number) 
¥<NAVFORSTAT 013 А5$ ОР 0123457 MAY 10% 
&CH /012345/100290/<cr> (Change the DTG) 
*<NAVFORSTAT 013 AS OF 1002007 MAY 77>*x 
O CrS ifile the change) 

*NAVFORSTAT 013 AS OF 1002002 HAY 77* 
&EQU<cr> (Finished with changes to IDENT) 
&NX<cr> (Want next data element) 

*"TSKCD CTU C77.7.7* (First line of next data element) 
ООШ 9g 7 7076.1 .2/<cr> 

“HE EED O76. |. 2>* 


SPI<CI> 
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ENSECD CTU 076.1.2* 

NA ASKED CTU 077.7.7/DELETE«Xcr» 
“aa ED CTU 077.7.7/DELETE»* 
RT SEL 

SEED CTU 077.7.7/DELETE* 
&ENX<cr> 

BACTIV IP* 

SCH /IP/OP/<cr> 

*<ACTIV OP>* 

&FI<cr> 

*ACTIV OP% 

ENX<cr> 

*PERSN NE/0240/0221/0195* 
ee 019570198 /<cr > 

*<PERSN NE/0240/0221/0198>* 
Sa <cr> 

*PERSN NE/0240/0221/0198* 
&QU<cr> 


(dic ng session is terminated and 


created) 


*A>* (System is ready for new task) 
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files 








The resulting message file would 
both examples: 


FM USS NEVERSAIL 

TO CINCPACFLT MAKALAPA HI 
COMNAVSURFPAC SAN DIEGO CA. 

Bug 77.7.7 

CTU 76.1.2 

BT 

NAVFORSTAT 013 AS OF 1002002 MAY 77 
FP 1234 NEVERSAIL/NO9999 | 
PART I 

ten CTU 076.1.2 

TSKCD CTU 077.7.7/DELETE 

ACTIV OP 

PERSN NE/0240/0221/0198 

BT 
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SUMMARY FOR ROS USERS 


1. Turn on power to the microcomputer, diskette drive and 


a 


terminal. (Diskette out!!) 


2. Select proper diskette and insert into "A" slot. 


3. Load the computer program by depressing the "RESET" 


Switch. an "A>" should appear on the terminal screen. 


4. Confirm that the appropriate DAT file is present on the 
diskette in use by typing "DIR <filename>.DAT <cr>". If so, 
"<filename>. TAT" will appear on the screen. If not, repeat 
Steps 2 through 4 with other available diskettes until the 
DAT file is found. If the DAT file does not exist, the 
CREATE program may be used to produce a DAT file. 


S5. Remove previcus report's MSG file by typing "ERA 
<filename>.MSG <cr>". Alternatively, if a back-up file is 
desired, type "ERA <filename>.BAK <cr>" to erase the 
previous pack-up file followed by "REN 
<filename>.Bak=<filename>.MSG <cr>" to rename the MSG file 


as a BAK file. 


Ms ci ic RCS program by typing "ROS «filename» <cr>". 
Answer system queries and select data elements. Make 
КООШО ООА е modifications to data elements as they appear 


using the line editor facilities. 
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EH. When processing of the selected data elements is 


complete, "A>" will appear on the screen. 


8. The MSG file may be viewed by typing "TYPE <filename>.SG 


“Er, 


9. ` IE additional corrections must be made, repeat Steps 5- 


Bhrough 8. 
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APPENDIX B 


LINE EDITOR 


User's Manual ; 
im Introduction. 


ROS and CREATE users may create and change the contents 
or the ROS and CREATE files by using the features of the 


“line editor". 


ghe LEDIT procedure functions with two lines of 
information, the "old line" containing the data as it exists 
in the file and the "new line" acting as a recepticle for 
additional or modified data. Data may be manipulated 
between the two lines by using a series of basic editing 
commands which are described below. In order to provide an 
editing capability which would prove useable by an operator 
of limited experience, the basic line editor's commands are 
succinct and limited in number. It is hoped that this 
Philosophy will allow the ultimate user in the fleet to 
rapidly master the basic line editor's capabilities and to 
use the basic line editor without reference to a command 
list or user's manual. An expanded line editor is also 
available within the LEDIT framework which allows greater 
control over the line editing process. This expanded editor 
1S intended for the more experienced user or programmer who 
requires this greater capability. Either the basic or the 
expanded line editor may be invoked by the user without any 
Change to the ROS or CREATE programs. Discrimination 


between the two editors is by means of command format; each 
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r pas its distinct command set. These commands are 
structured in such a way that there should be no possibility 


of accidentally invoking a line editor command. 


The line editor uses a series of commands, composed of 
an ampersand (&) followed by two characters, and possikly by 
a@eelitying information in an "argument list". The end of 
the line editor command sequence is denoted by a carriage 
return. The commands operate on the "old line" contents 
which are the last iine displayed at the console. The 
resultant changes are held in the "new line" area until an 
explicit command is given to replace the "old line" contents 
with the "new line" contents. This reguirement should 
prevent inadvertent modification of existing data. The 
following section enumerates the commands available to the 


user and defines the action they cause. 
2. Basic Line Editor Commands. 


The following commands are used with the basic line 


editor: 
COMMAND PARAMETERS DESCRIPTION 
SPR <numeral> "DRINT 


Displays the number of lines 
indicated by numeral. After 
displaying lines, the contents 
of the "old line" are the last 
iine displayed. tt no palas 
meter is present, one line 


will be displayed. 
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COMMAND 


& NX 


GOP 


SCH 


PARAMETERS 


«numeral» 


«numeral» 


Ed da 


DESERTETTON 


IE NX D 

Displays the ith line follow- 
ing the current line where i 

is equal to the numeral 
indicated. Only one line will 
be displayed which will be the 
contents of the “ola line". I£ 
no numeral is specified, the 


next line will be displayed. 


"UP" 
Displays the ith line before 
the current line where i is 
equal to the numeral indicated. 
Only one line wili be displayed 
which will be the contents of 
the "old line". If no numeral 
is specified, the previous 


line will be displayed. 


"CHANGEN 

Copies all characters from "old 
line" to "new line" until the 
fud ocr ende of string 1; 
string 2 is substituted in the 
"new line" in place of string 1 
and the remaining characters of 
the "old line" are copied intc 
the "new line". Contents of the 
"new line" are displayed between 
Broken prackets (<>). ..String 2 
may be a null string indicated 


by consecutive virgules (//). 
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COMMAND PARAMETERS DESCRIPTION 


&DE NONE "DELETE" 


Deletes the contents of the 


Hold tane 


SIN <string> "INSERT" 
PMseCheCsoe eNews ramgne1 hditea tod 
str he eur rent line but 
before the next line. Insert 
node is terminated by a carri- 
age return. Added lines are 
displayed between broken 
brackets (<>). 


&FI NONE "ETCEN 
Replaces the contents of "old 
line" with the contents of "печ 


line" and clears “new line". 


500 NCNE “OU Ma 
Terminates the edit session. 
Will not incorporate changes 
unless a previous file command 


has been given. 


& PO VONE РИО РТ ОЧ 


Turns the prompt mode on. 


&NE NONE ENO PRONE I 


Turns prompt mode oft. 
3. Use of Basic Line Editor Commands. 


In order for a command to be recognized it is necessary 
that tha ampersand (&) be in the first input character 
position. The alphabetical characters of the ccmmand must 
immediately follow the ampersand with no spaces between 


them. A blank space between the command and any parameters 
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is necessary; a single carriage return denotes the end of a 
command and its associated string. 


Whenever a command other than those listed abcve is 
used, an error condition will exist and the message "INVALID 
LINE EDITOR COMMAND" will be displayed. The LEDIT procedure 
Will then await a corrected command input for a change or 


mor termination of the input session. 


An example of a line editing session is shown belcw to 
demonstrate use of the LEDIT commands. For the purpcse of 
illustration, all lines displayed by the LZDIT procedure are 
bracketed. by asterisks (*); for user input lines, a carriage 


teetuin 1S shcwn as «cr». 


In this example, a textual file is used to demonstrate 
the basic line editor. 
&PR S<cr> (Prints 5 lines of the file) 
AIS ETLE CONTAINS TEXTUAL MATERIAL TO* 
PEONMONSTRATE THE USE OF THE LIN:I* 
ZEWETOR!S OPERATION. THE OPERATOR CAN USES 
RISE EDITORS TO MODIFY FILES ONE* 
UTN CATS TIME. CHANGES "MUST BE= 
&NX<cr> (Prints the next line) 
ЖШШЕ FOR EACH LINE SEPARATELY IF THEY* 
SUP 3<cr> (Backs up three lines) 
*THESE EDITOES TO MODIFY FILES ONE* 
&CH /ONE/A SINGLE/<cr> 


APRESA EDITORS TO MODIFY FILES A SINGLE>* 
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gFI<cr> (Files the change) 

&PRKcr» (Print out current line) 

*THESE EDITORS TA MODIFY FILES A SINGLE* 
ENX U<cr> (Goes down four lines) 

“AE TO BE INCLUDED IN THE FINAL FILE. * 
&CH /IN/ON/<cr> (Change the first occurrence of "IN") 
КООШ ТО BE CNCLUDED IN THe FINAL FILE.>* 
ENX<cr> (Gets next line, above change not filed) 
wees IS AN EXTRANEOUS LINE 

&DE<cr> (Remove current line) 

&FI<cr> (File the deletion) 

EUF<cL> (Assumes ur one line) 

*ARE TO FE INCLUDED IN THE FINAL FILE.* 
SIN THIS IS AN ADDITIONAL LINE OF TEXT<cr> 
*<THIS IS AN ADDITIONAL LINE OF TrXT>* 
&FIXcr» (Files the insertion) 

&0Р<сг> 

*ARE TO BE INCLUDED IN THE FINAL PILE.* 
&PR 2<cr> 

wee TO BE ENCLUDED IN THE FINAL FILE.“ 
“rs TS AN ADDITIONAL LINE OF TEXT* 


EQU<cr> (Ends the edit session) 
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It should be kept in mind that all modificaticns to 
lines affect only the "new line" area until a "FILE" command 
(SFI) is given; the file command causes modification cf the 
"old line" area which represents the contents of the 
resulting file. This convention provides the user with the 
ability to make several temporary modifications to a line 
Petore daking these modifications to the original file. By 
reguiring the user to give an explicit "FILE" command, he 
has the opportunity to see the effect of the modification 
metOre it is entered; this will reduce errcreous 
modification of good files. The operator must also remember 
that the "QUIT" ccmmand (&QU) merely terminates the edit 
session and that any desired changes must be filed prior to 


ending the session. 


4. The Extended Line Editor. 


The extended line editor uses the same "old" and "new 
lines" as the basic line editor but allows more explicit 
control cver the editing operation by invoking commands from 
a different command set. Extended line editor commands 
consist cf a control character, i.e. Simultan¢ously 
depressing the CTRL key and an alphabetical character key on 
the console keyboard. Since twenty-four different commands 
exist and the distinction between similar commands is very 
Subtle, it is recommended that the basic line editor be used 
whenever pessible. Table 1 summarizes the commands 
available in the extended line editor and describes the 
action these commands cause. Because of the cumulative 
complexity of these commands, an example session is not 
given. Potential users of the extended line editcr are 
encouraged to practice using the various commands on a dummy 
file ¿in order to gain an understanding of the ramifications 
of sach ccmmand. Particularly useful members of this editor 


Mi Mid oen rol characters A, B, D, E; F and W. 
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CCNTROL 
BHSRACTER 


À 


DEFINITION 


Acts as a backspace and rub-out command on the 
new line only. (Same as the rub-out on many 


terminals). 


Replace the "old line" with the contents of the 
"new line", empties the "new line". (Equivalent 
EOBSEI). 


Copy one Character trom the “old line" to the 


"new line'. 


Copy the remaining characters from the "old line" 
to the "new line" echoing each character. 
Equivalent to &FI followed by &QU. 


Toggle the insert mode. Begin insert prints "<", 
endi nsert prints >". Position of the old 


pcinter does not change during insert. 


Delete the new line without updating the old 


lunc then "quit". 


Display contents of the "old" and "new lines" 


with control characters interpreted. 
Ccpy remaining characters from the "old line" to 
"new line", echoing each. Wait for additional 


edit ccmmands. 


Tab. A tab stop is defined for every four 


Characters. Same as TAB on many terminals. 
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CONTROL 
CHARACTER 


J 


DEFINITION 


Line feed. Editing of that line is ceased. 
(not used) 


Ccpy the remaining characters of "old line" to 
"new line" without echoing. Wait for additional 


ccmmands. 
Carriage return. Editing of that line is ceased. 
Backspace "old line" and "new line" one space. 


Copy characters from the current position of old 
peimt of to “the next character typed. 


Delete characters from the current position of 
cld pointer to the next occurrence of the next 
character typed. Echoes a "X" for each 

Character deleted. (The %'s do not become part 


of the new line). 


Delete the "new line" and reset the old pointer 


to the start of the "old line". 


Display the remaining contents of the "old line" 


and all of the "new line". >` 


Delete one character from the "old line". Echo a 


"X" for the deleted character. 
Only used in CREATE to transmit information in 


"new line" to storage in memory. Used when input 


from the console exceeds one CRT line. 


77 









ar CHEN ee ae 111 — a 


CONTROL 


CHARACTER 


U 


MORNE: 


the 


DEFINITION 


Copy characters from the "olā line" to the "new 


line" up to the next TAB character. 


Escape character. Turns off any special meaning 
of the character which follows. enters the 
character into the "new linet and echoes the 


caracter (e.g. "CTRL V CTRL U" will echo IM). 


Backspace up to the beginning of the last word. 


Deletes characters from the current position of 


"old line" through next character typed. 


Gepy the remaining characters from the "old line" 
to the "new line" echoing each, replace the old 
buffer with the "new line". Wait for additional 


ccmmand s. 
Copy characters from the "old line" to the "new 
line through the next occurrence of the next 


Character typed. 


The control character is entered by depressing 


CTRL key and then simultaneously depressing the 


desired function key. 


TABLE 1 


EXTENDED SLaNE Berton Seale R es 
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APPENDIX C 


CREATE PROGRAM 


User's Manual 


INTO AU: ion. 


The CREATE program lis designed to allow the operatcr to 
create a data base for a specific report. The CREATE 
prcgram is the primary tool used by the report requiring 
authority to produce the DAT files that are supplied to the 
ultimate fleet user. The same CREATE program is also 
available to the shipboard user to produce DAT files for 
reports that are currently not supported by a distributed 
BRI file. ayes situation "could arise if a new reporting 
requirement is levied on the fleet unit and the requiring 
authority has not distributed the appropriate DAT file or if 
some damage has been inflicted upon the diskette containing 
bie required DAT file. It is the guiding intention of this 
report generating syster that the ultimate user be provided 
with this capability as an interim measure only; the 
responsibility to provide and maintain DAT files properly 


lies with the authority requiring the report. 


A DAT file is comprised of three different categories 
of information: the report data base as represented in the 
is Submitted report; the prompting questions to which the 
Operator responds in order to update the report data base; 
and the error analysis directives which are used by the ROS 
program to check input data. The report data base contains 
not only the information associated with each of the data 


labels but also incorporates the required message header 
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information and perhaps some trailing information that may 
be required for some message reports. Thus, using a 
NAVFORSTAT for an example, the data base would contain the 
addressees in the naval message format, the subject and 
Standard Subject Identification Classification (SSIC) lines, 
ШС PART I information, i.e. the data labels and their 
associated data, and ERG ar ande PART ET narrative 


information as required. 


A DAT file can be subdivided into lines each of which 
can contain up to 128 characters or symbols and it may 
consist of as many lines as are necessary to represent the 
coded information, the error analysis directives and the 
prompting questions. Each of these categories will consist 
of at least one line. Therefore, as a minimum, a data 
element will consume at least three lines. If the report 
Material is primarily textual and self-explanatory, the 
error analysis and prompting sections may be left empty. 
This is accomplished by entering the appropriate record 


delimeter as explained in Section 3. 


2. Setting Ur the System. 


Porto originate a DAT file for a required report, 
the user iocates a diskette with ample space remaining which 
contains a copy of the CREATE program. Auxillary diskettes, 
containing the necessary system programs and the ROS and 
CREATE programs but without specific DAT files will be 
previded as part of the initial equipment allowance or may 
be obtained from higher authority. Each diskette contains 
sufficient space to hold several DAT and MSG files for 
different reports. Since the shipboard user is creating a 
DAT file only as an interim measure until the appropriate 
diskette is provided by the report reguiring authority, the 
interim DAT file may co-occupy a diskette with another DAT 
file and then may be erased after the officially distributed 


DAT file is received. 
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Arter the diskette is inserted in the drive mechanisn, 


the CREATE program is invoked by typing 
CREATE <filename> <cr> 


where <filename> consists of eight characters, or less, and 
is the name cf the DAT file to be created. This <filename> 
Should have mnemonic value so that it can be easily recalled 
or identified by the user when originating a report. For 
example, the <filename>, "FORSTAT" would be appropriate for 
the Naval Forces Status Report  (NAVFORSTAT). (Note that 
"NAVFORSTAT" was not used because it exceeds the eight 


character limitation on <filename>.) 


Se Be eution. 


Upon receipt of tne CREATE conmand, the system will be 
ready to ccmmence building the DAT file and will respond 
with the prcmpting message, "EXPECTING CODE INFORMATION". 
This is a request that the user type in the appropriate data 
label £ollowed by the information to be associated with that 
data label. To identify the data label, it should be 
bracketed by a pair of one of the following specific 
symbols; bracketing the data label with exclamation points 
(!) indicates that the lapel itself is to be included in 
the final report while bracketing with percent signs (%) 
mmi cates the label is not to be included in the report. 
Any information following the bracketed labels is considered 
to be part of the data base information for that data 
element. After all the appropriate coded information has 
been entered, the end of the coded information secticn is 


marked by inputting the bar character (|). 


Now the system will respond py displaying the prompt, 
"EXPECTING ERROR COMMANDS". Error commands are applicable 
to individual fields within the coded information line. For 


example, fields in the NAVFORSTAT data element, COMDR, are 
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denoted by virgules (/) Se para: eege ele The data 
ome 8 ACTIV IP" contains one field whose contents are "Ip"; 
the data line "COMDR CDR/JONES J.P./000111-10" contains 
three fields containing "CDR", "JONES J.P" and "000111-10" 
respectively. Notice that the data label is not considered 
to be a field. Data labels may be analyzed in different 
ways by either checking their content or by comparing the 
revised information to what was previously reported. The 


A Ci iC €LECr commands are: 


ALPHA Checks the field to ensure all 
Characters are alphabetic. 

NUM Checks the field to ensure all 
Characters are numerals. 

CT<nunber> Checks the field to see if 


it is within <number> percent 
of the previously reported value. 


The <number> should be two digits 


between "01" and "99", inclusive. 
SEO Checks the field to see if it is 
Sequential to the last reported 
value. 
LNG Checks the field to see if it 


contains the same number of digits 


as the previously reported value. 


Error coumands are separated using the same delimiter as the 
coded information. If a report contains defined fields 
separated by virgules, the fields for error analysis will be 
Gefined using virgules. If no defined fields exist in the 
report then a field may be denoted by using braces (Di as 
delimiters in both the coded information section and the 
errcr command section. These braces will not appear in the 
final report format. If a specific field of a data element 
is not to be checked, then two consecutive delimiters are 
entered, indicating no error command. If error analysis for 


one field of a data element is desired, all fields for that 


82 





particular data element must have error analysis, i.e. 
either one of the five commands above or the null command. 
The end of the error analysis section is marked by the tilde 
(5) character. If no error analysis is desired for a data 


element, a solitary tilde should be the response to the 


prompt message. Thus, for the data element, EDADES 
previously shown, an error command response might be 
//ALPHA/NUM= 


which would be interpreted as meaning no error analysis is 
desired for the field containing "CDR"; the characters in 
the name field should be alaphabetics; and the characters in 


the final field should be numerals. 


The system will now respond by displaying, "EXPECTING 
PROMPT INFORMATION", Prompting information consists of 
questions and explanatory statements which are to be 
displayed to the user during report origination. This 
prompting information should be concise and unambiguous. By 
reading the prompting information, the user should know 
specifically what information is being sought and in what 
format it should be entered. Again there is a 
correspondance between data element fields and prompting 
n os ion fields. During ROS program execution, prompting 
questions are displayed individually for each field of the 
data element with responses to each question being entered 
before continuing on to the next question. Unlike the error 
analysis section, each field of the data element should have 
dae appropriate prompting question; if it is decided that a 
data element need no prompting questions, then a null 
prompting area should be entered. However, it is strongly 
reccamended that every data element have associated 
prompting questions, even if the questions appear obvious. 
The end of the prompting area is denoted by entering an 


up-arrow (4+). 


The process will continue to seek code information, 


error analysis information and prompting questions until the 
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mma of file is entered. This is accomplished by typing a 
back slant character in response to the "EXPECTING CODE 
INFORMATION" query. At this time, execution of the CREATE 
prcgram ceases and a DAT file exists. This file may be 
referenced by <filename>.DAT and can be utilized by the ROS 
program as a data base. 


It is recommended that the DAT files produced be as 
comprehensive as possible to ensure that they will be useful 
for all possible situations. When working with a highly 
formatted report such as NAVFORSTAT, all data labels that 
could possibly apply to a unit should be included in the DAT 
side: if, at the time of creation, a particular data label 
is not pertinent, the label itself may be included in the 
file along with a null code area (the data label followed by 
a bar), the error analysis area and the prompting questions. 
If this is done, when that particular data element becomes 
applicable tc the unit, the system need not be modified to 
ME nde wehewmfommation in the report. By using the report 
inclusion feature of the ROS program, as explained in 
Appendix A, the generated report content may be tailored by 


data element selection. 
4. Sample CREATE Session. 


An example of the beginning of a CREATE session for a 
NAVPORSTAT is shown below. Reiteration of the complete 
session wculd be excessively lengthy and redundent. It is 
hoped that this example will provide enough insight to DAT 
file creation to allow the ultimate user to produce a usable 
file after a short experimentation session. Lines displayed 
by the system are bracketed by asterisks (*); lines input by 
the operator are ended with a carriage return <cr> or do not 
start and end with asterisks. In these cases, it is not 


necessary for the operator to enter a carriage return. 
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*A>* (System is ready) 


E SATS FORSTAT<cr> (FORSTAT 15 the name of the DAT file 
produced) 


*EXPECTING CCDE INPORMATION* (Prompt message) 
®HEADERZ FM USS NEVERSAIL<cr> 

NES CINCPACFLT MAKALAPA HI<cr> 

COMNAVSURFPAC SAN DIEGO Ca<cr> 

me 77.7.7«cr» 

eeu 76. 1.2<cr> 

BEES CT A 

| (Indicates the end of the code area for HEADER) 
*EXPECTING ERROR COMMANDS* 

^ (No errcr commands are appropriate for this data element) 
PEXPECTIWNG PROMPT INFORMATION* 


ENMGISNBPESOPBIATE ACTION AND INFORMATION ADDRESSEES IN <cr> 
ASIST D NAVAL MESSAGE FORMAT ENDING WITH THE "BT" LINE.4 


"EXPECTING CCDE INFORMATION= 

(Ready for the next data element) 

ALDENTS NAVFORSTAT (000) AS OF (00000032 JAN OO<cr> 
EA (2 AA, HEMERSATL/NO9999 <cr> 

PART I| 

*EXPECTING ERROR COMMANDS* 

{SEQ} ({LNG}/- 


(indicates that the report number field is tc be checked for 


seguence and the DTG field is to be checked for 6 digits. 


- 
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All other fields have null commands) 
*EXPECTING PROMPT INFORMATION 

MODIFY THE REPORT NUMBER AND "AS OF" DTG APPROPRIATELY} 
FEXPECTING CCDE INFORMATION* 

ED! cTU 077.7.7| 

*FXPECTING ERROR COMMANDS* 

4 (No appropriate error commands) 
PESEBECGCTING FKORPT INFORMATION* 

WHO IS YOUR TASK ORGANIZATION C CMMANDER?<cr> 
RESPOND IN THE FORM CTA NNN.N.NS 
“EXPECTING CCDE INFORMATION* 

Torco! СТО 077.7.7| 

*EXPECTIMG ERROR COMMANDS* 

^ (No appropriate error commands) 
*EXPECTING PROMPT INFORMATION* 

WHO IS YOUR CPZRATIONAL COMMANDER? «cr» 
RESPOND IN TEE FORM CTA NNN.N.N® 
SEXPECTO@NG CCDE INFORMATION* 

!HOGEO! SAN DIEGO CAI 

EXPECTING ERRCR COMMANDS* 

ALPHA“ (Alphaketic characters only) 
*EXPECTING EROMPT INFORMATION* 

WHERE IS YOUR HOMEPORT 74 


*EXPECTING CODE INFORMATION* 
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!CCMDR! CDR/EATCH W.T./012345-6 0| 
*EYPECTING ERROR COMMANDS* 
ALPHA/ALPHA/NUMA 

(Alphabetic characters in the first 
two fields, numeric in last) 
*EXPECTING PROMPT INFORMATION 


WHAT IS YOUR COMMANDING OFFICER'S RANK?/HIS NAME? LAST NAME 
FOLLOWED BY INITIALS/HIS LINEAL NUMBER?4 


*EXPECTING CCDE INFORMATION* 

ACTIV! IP] 

*EXPECTING ERROR COMMANDS* 

ALPHA- 

*EXPECTING PROMPT INFORMATION* 

WHAT IS YOUR CURRENT EMPLOYMENT?4 

*EXPECTING CCDE INFORMATION* 

!XFERR! NC00C/000000/00-00.0N,  000-00.0E/000000| 
*EXPECTING ERRCR COMMANDS* 


LNG/LNG/LNG/LNG^A (Checks all fields for proper number of 


characters) 

SEAPECTING PROMPT INFORMATION* 

ТОКУШАТ ACTIVITY ARE YOU TRANSFERRING? /<cr> 

BEE DO YCU TRANSFER? YYUMDD/<cr> 

AER E DOES TRANSFER TARE PLACE? XX-XX.XN, XXX-XX.XE/<cr> 


WHEN DO YOU DEPART FOR TRANSFER POINT? YYMMDD^ 
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WERPECTING CCDE INFORMATION* 

!ARRDT!| (Null code area) 

*EXPECTING ERROR COMMANDS* 

LNG= 

*EXPECTING FFOMPT INFORMATION 

WHAT IS YCUR ARRIVAL DATE AFTER TRANSFER?SCI» 
CINE IN FORM YYMMDDA 

CENMBEBCTING CCDE INFORMATION* 

GERADDD! 1| 

*EXPECTING ERROR COMMANDS* 

NUM- 

*EXPECTING PROMPT INFORMATION*x 

men IS YOUR FORCE ACTIVITY DIGIT?4 
*EXPECTING CCDE INFORMATION 

!IPERSN NE!/02400/0221/0195| 

HEKPECTING EFRCR COMMANDS* 
/PCTIO/PCTIO/PCTIOS 

(Check each field for 10% changes) 

*EXPECTING ERCMPT INFORMATION* 

WAVE GMLISTED PERSONNZL-RESPOND WITH 4 DIGITS/<cr> 
su UGTURED STRENGTH? /AUTHORI ZED STRENGTH?/<cr> 
ASSIGNED STRENGTH?4 


*EXPECTING CCDE INFORMATION* 
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(The CREATE program will continue to request the three 
categories cf information. After all desired data labels 
have been included in the DAT file, a back slant should be 


entered in response to "EXPECTING CODE INFORMATION? .) 


Again, it is emphasized that prompting questions and 
error commands be as comprehensive and unambiguous as 
possible. If, before composing these questions, the drafter 
anticipates: tke questions of the ultimate user, a much 
Deerer product wil] result. During execution of the CREATE 
program, the features cf either line editor may be used. It 
shculd be remembered that modifications filed during the ROS 
program execution are incorporated not only in the MSG file 
but are also reflected in the code information area of the 
DAT file. 
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SUMMARY FOR CREATE USERS 


- 


ie Turn cn power to the microcomputer, diskette drive and 


terminal. (Diskette out!!) 
2. Select appropriate diskette and insert into the "A" slot. 


3. Load the computer program by depressing the "RESET". 


Switch. An "A>" should appear on the screen. 


4. Confirm that the required DAT file is present cn the 
Siete Бу typing "DIR *.DAT <cr>". This will list all DAT 
files present on that diskette. If necessary, repeat Steps 


2 throuqn ü for all diskettes. 


S. Execute CREATE program by tvping "CREATE <filenane> 
der Ig Bespond to the system queries until the last 
applicable data element has been entered, then close the 
ice. 
Delimiter symbols are: 

| - End of data code area. 

= - End of error command area. 

^ - End of prompt area. 

N - End of file. 


eee Closing the file, "А>" will appear on the screen. 
fer 13 that the DAT file is present by typing "DIR 


EE ler de. DAT eer AN. 


7. Execute the ROS program if desired. 
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/* cc 
* * 
E ROS PROGRAM s 


x 
EE RARR RR ROK RR MR k * 


S F ==жжжхж жж жж жок Жок жок жок жокко жок Жс Жж Жж KOK RK K SK SK KOK SK SK EK SK KK E KOK K K SK KOK SE sk k 


À REPORT ORIGINATION SYSTEM DESIGNED FOR SHIPBOARD 
USE IN THE GZNERATION OF REQUIRED RECURRING REPORTS. 
ЧИЕ SYSTEM ÚSES AS INPUT A DATA BASE (DAT) FILE AND 
eevee. AS OUBPUT A MESSAGE (MSG) FILE. TH 
SOFTWARE SYSTEM CONSISTS OF TWO PROGRAMS: ROS AND 
CREATE. CREATE IS USED TO CREATE A DAT FILE AND ROS 
IS USED TO UPDATE THE DAT FILE AND CREATE A MESSAGE. 


THE ROS PROGRAM IS MADE UP ON THE FOLLOWING MODULES: 


L 


1. OPERATING SYSTEM INTERFACE 

2. INITIALIZE 

See EDITING 

q. EEROR 

SL OUTPUT 
THE CREATE PROGRAA IS MADE UP OF THE FOLLOWING 

MODULES: 

ie INERTALIZE 

Zon INEUTSZEDITING 

S.C OBENTS 
КОЛ PEOSRAMS WERE DESIGNED FOR EXECUTION ON THE 
Fl I 5 MECSOCOMPUTSR SYSTEM, WITH CROSS CCMPILATION 


BEING DCNE ON AN IBM 360/65. 
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BDOSA ADDRSSS INITIAL (00068H), 
SBDOS BASED BDOSA ADDRESS; 
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INITIALIZE DECLARATIONS 
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RMPTR BASED RM BYTE 
DLSLEN BYTE INITIAL (0), 
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c0 ——— 


JR HR Xo EE a OK a kk ook ok RK SK KOK x KK 
ERROR DECLARATIONS 
ea I I N EE RE ER RR MR RR RR EK RR RE EER RR RE RR RE RE N RE RE KERE k 


DECLARE 


RR ADDRES 
ECMD BASED ERA BYTE, 
BERRA ADDRESS, 
WARN BYTES INITIAL (FALSE); 
/ e ROER REK RE TEER OER EE OE EE RE KOK RE RE RR RE KERR EE RE EE KERE RE EK RR OE 


OJUTU DECLARATIONS 
EE REK BERK Sk SK Sk SR SK OK k SKOR K A e Al co A 


DECLARE » 
Т$ЕСВ ADDRESS INITIAL (5CH), 
DECE BASED DAIS?FCB BYTE, 
4SG$FCB (33) BTE, 
PRINTSLABEL BYT2 INITIAL (FALSE); 


/* 3 3 HE OK K PR A A A KK KK OK Kok x 


ERRATA bal CANDIA So nO DIU 
ad GE BEN: ofRVES AS AN INTERFACE TO THE RESIDEN 
Deak T ING SYSTEM. TI SALE ORS ZINEDTZ/OUTEUTZSDEZATION 
em NMIANDDLSD SY SYSTEM CELLS. 


3 3 < XK < Y x x< X< * >< < fc K Ñ Nk KE l< Kk db KE A K ef 


CRTIN: PROCZDURZ BYT 
DO WHILE INDUT (CTS) ; 


d 
5 


EN : 
RETURN NOT INPUT (CTI) AND O7FH; 
END CRTIM; 
EDE: PROCEDURE BYTE; 
ae ARE C BYTE; _ 
Go PIN) >= 110500018 /* LOWER CASE A */ 
NND C <= 9011151010B /* LONERCASE Z */ THEN 
NO 3101511118: "/* gECOMES UPPER CASE */ 
RUN C; 
END RESADC; 
“ON: PROCEDURZ (FUNC, INFO) _ 
DECEBER UNC BYTE, IN ADDRESS? 
GO TO ENTRY; 
END MON1; 
MOM: [PROCEDURE (FUNC,INFO) BYTE; ` 
Bee EE UNC BYTE, INFO ADDRESS; 


GO, TOSENT RY ; 
END MON 2; 


MON3: PROCEDURE (FUNC, INFO) ADD 
DECLARE FUNC BYTs, INFO ADD 
GO TO ENT RYS 
BMD HONS; 


РАТ Т СНЕ; Р: 
DECLARE 
CALL MON 
BED PRIN 


PRINTCHARI: 
PECLARE 
DF (CHN 


RE (B); 


ШЕЕ (С); 
50000В) so. OJTThOLTCHAR vy THEN 


LOU Sow 
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CALL PRINT(.'À MESSAGE FILE EXISTS  $!); 
CALL PRINT(.'DISK WRITE ERROR 51): 
CALL PRINT(.'OUT OF DIRECTORY SPACE St): 
CALL PRINT(.'DAT FILE NOT PRESENTS'): 

— CALL PRINT(.'MSG FILE NOT PRESENTES)! 

GO TO BOOT; 

END ERROR; 


Y A HORROR CR kk kk kk ee ek ek A A E жож 


INITIALIZE MODULE 


PURT ETONS: TO OPEN THE APPROPRIATE DAT FILE, MAKE 
AEXSNSSAGE FILE AND ALLOW THE USER TO SELECT A SET OF 
SEE ELEMENTS TO WORK WITH. IT THEN INITIALIZES 


MEMOR? META TH SELECTED DATA ELEMENTS. 


TK SR EAR AE SKK AA 


=) 
са 


oe Wee tee x EU 
-^ (bi 


= 


Ut NWN. 


A 
Hro QU OU tantu Qy C) 


она) ылд) Uu nd rZ wy 
к] Сук] С) zJ O G Un O 
Er UI OR His “ld 
ti ST UI UIO DS 


Qr Gin) On rgux Ua — rO 
we =” ut ~- JN’ 


H 
ur 
F1 
H3 
* 
rr) 
CO 
С) 
b . 2 , 
1 жш 
G 
брус у 
E 


йд bv AR 
as iise How» 


Es ul 
THEN 
ATSFCB)) <> 0 THEN 


br Oi Vr DU) 
egal) “NT 
CJ U U tU rrj tJ Q G = 
æ. O'R O Ole > tn 
YOO Loto re 
© Ure * t-3 


T ii 
taid G uga taje 


„PROCEDURE; 


LIL 


= O = 


mg 
HY) 
H 
= 
JVA Mes шшш 


O ty6) 


S? 
7* END OF RECORD MAP */ 


<> 111) OR (RMPTR <> PERCENT); 
EAR (RM TR); 


LEN * 1; 


En 


Cie ONMNMHZH 
ега Н С) 


mH U 
rr = 
tee tt 


D pul ° 
C pg x» 
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END: 
ПШ = RAP+ 2; 
END: 

END PRINTSDATASE: 


SETS ENS NE: EROS FOU ht. 


PRIWISP ACE: 


Р = ER; /* EXTENT */ 
CALL INCSWA: 
WMPTR - ER 
CALL INC$ 
WMPTR 
CALL INC 
END SAVE 


p 


1): /* RN */ 
17) - ER(1); /* NUMBER OF RECORDS */ 
$RNSNR; 
CEDURE; 
DECLARE YTE: 
DO f=) TO DLSLEN 
GALL PRINTCHAR (' 1) ; 


END; 
END "PRINTSPACE; 


Hd Wald 


W 
R 
W 
Ë 


R 


WO > 


CHK$RESEONSE: PROCEIURZ; 
DECLARE (I, nC) BYTE; 
DO I = 1 TO NUNSELEMENTS: 
CALL PRINTCHAR (Ci=READC) ; 
IP C = "yt THE 
CALL SAVESEXSRNSNR; 
ELSE 
IF C = I'S! TEEN 
DO; 
STOP = TRUE; 
RETURN; 
ENDS 
ESRSA = ESRSA + 16; 
CALL PRINTSPACE; 
END; 
END’ CHXSRESPONSE; 
WE: PROCEDURE; 
WORKSMAP = .MEMORY + 1536; 
NUMSELEMENTS-5; 
IP (MODIFY = - TRUE) THEN 
CALL PRINT(.'SELECT DATA ELEMENTS TO WORK WITHS'); 
ELSE pi 
CALL PRINT(.'SELECT DATA ELEMENTS TO BE 
INCLUDED IN THE REPORT $'); 
WORKSMAP = . MEMORY + 1792; 
END: 
ESRSA = RM + 14; 
DO WHILE (RMPTR <> EOC) AND (STOP = FALSE); 
DO WHILE RM < 1008; 
CALL PRINTDATASE; 
Gaul CRLF: 
CALL CHK$RESPONSE; 
IF (DCNT:=DISKREAD(DAT$FCB)) <> 0 THEN 
CALL ERROR (1); 
END; 
END SELSWE; 
LECT: PROCEDURE; 
STOP = FALSE; 
MODIFY = FALSE; 
CALL SELSWE; 
END RESSELECT; 
MEM: PROCEDURE; 
DATSAREA, EASESDATSAREA = WORKSMAP; 
TOPSHzM = SBDOS - 1; 
WORKSHAP = . MEMORY; 
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/* RN TO START READ */ 
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i25) 


PROCEDURE; 
= DAT( 


Pres (12) 


FRES: 





dai DO DO da ta o» 
II -j tu tzJ -3r3+3 


GT 
600 HOTYHU0DO 


ta HF nop H H H H I 
J nitaj || 
tjO) 


"JU CU WNINHH 2 Nnuuw 
UJ 


t3 44 30109 Utd SION b> 


DIGSTOSNUY: 
>" CONVERTS 
DECIARE 


SE 
RETURN DL$LEN; 
END LONG; 


JR ERE A A E A A RR KOK 


/* 


"g'rorg ll Oto 
to rg e 
HHHE HY 
О Tbj 
HOH pe 


OUD RO ——. 
a aan 


H 
00 


UJ) a 3 ol HH NND DD 
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“INO | bob 
“OV bd 
ee ee 
.. N) we 


we... N) EN Ef pee wo we 


OR (STR1(I+1) 


NITIAL (0); 
OR (RM (0) 


' t) TH 


EDITING MODULE 


10 ALLOW ENTRY OF DATA AND EDI 
AUSE OF LINE SDITING FUNCIION 
ШО ГО ENTER DATITA DIREGIEY INTO 
BE PROMPTED AS TO WHAT INFƏRMA 


PROCEDURES OF THE LINE EDITOR 


Le 


ad 


UU “tse 
Ln 


aaa" 
CG CG CL 
meu» u» i 
ry ry rg 
Ul 
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IGITS TO A DECIMAL NUMBER */ 


<> CR); 


TE OF 
BEE 


ON TS 


ram: 


жжжж жж жж E eh kk k eh ek bk d ee E e e A ek ek k / 
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woe e RENT CHAR (BELL) ; 
END BACKS UP; 


MOVESTOSOLD: PROC 
CALL MOVE (NES 


Ee 
+1 OLDSBUF+1, (OBUF:=NPTR)); 
OPTR = 0; NPTR = 0;' fi un 


COPYSONF: PROCEDURE; 
IF OPTR <= OBUF THEN 
CALL ECHOSON; 
ZLSE CALL PRINTCHAR (BELL) : 
END COPYSONE; 


PSMOVFSCN: PROCEDURE: /* PARTIAL MOVE OLD TO NEW */ 
DO WHILE OPTR < OBUF; 
CALL ECHOSCN: 
END: 
END P$HOVESON; 
ENTER: PROCEDURE: 
IF INSERT THEN 
SOM PRINTCHAR('>'); 
^ "CALL PRINTCHAR('«!); 
INSERT = NOT (INSERT); 
END ENTER; 
PRINTSOLD: PROCEDURE; 
DECLARE I BYTE; 
DO I= 1 TO OBUF; 
CALI PRINTCHARI(OBUF(I)); 
СА, CRIE: 
END PRINTÍŠOLD: 
PRINTSNEW: PROCEDURE; 
DECIARE I BYTE: 
DO I = 1 TO NPTR; 
CALL PRINTCHARI (NBUF(I)); 
E e 
“ND PRINT S$NZW;: 
PRINTSECTH: PROCEDURE; 
CALL PRINTSOLD; 
CALL PRINTSNEW; 
END PRINT$BOTH; 
COPY3RMSOSN: PROCEDURE; _ E 
/* COFLES REMAINING CHARACTERS FOR OLD TO NEW BUFFERS */ 
DOWWNBHELE OP2R <= O3UBP; 
CAIL OLDITOSNENW; 
END: _ 
GAL PRINTCHAR('*') ; /* INDICATES WHEN DONE */ 
END CGPYSRMSOSN; 
BS$0$N: PROCEDURE; 
* EACKSPACE OLD PTR AND NEW PTR 1 CHAR */ 
TF (OPTR > 0) AND (NPTR > 0) THE! 
DO; 
OPTR = OPTR - 1; 
YPTR = NPTR - 1: 
OBUF = OBUF = it 
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END? 
ELSE 


CALL a S 
END BSSOSN 


COPYSON: PROCEDURE (SL 
DECLARE (C,I) BYT 
I-OPTR; 
DO WHILE OBUF (T2=1+1) ie 
IF OBUF THEN /* NO MATCH */ 


L PRINTCHAR (BELL) ; 
URN; 


rr) Ce ° 
tdi Y 
HE 


END; /* DO WHILE */ 
DO WHILE OPTR « I; 
CALL ECHOSON: 
END 
END COPYSON; 
DELETE: PROCEDURE (ECHO) ; 
DECLARE - BYTE; 
с; 
CHARI = 
DO WHI rs) OBUR (P1:=P1+1) <> CHAR1); 
IP PI > OBUF THEN /* NO MATCH SA 
Der 


CAEL PRINTCHAR(BELL) ; 
RETURN; 


1: 
8 (PERCENT) ; 


NOW CONDENSE TEE BUFFER A 


OO A 
iut 
mie rH 

"d 


= OBUF(I:=I+1); 
1-OPTR+1) ; 


zoom OWN 


J 


Va 
tie 
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p" 
tg C 
+3 tr! 
Ci дс Hl 


CO 
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ty 

E" 

A 
HOOOOS О OHG 

HET ri dr 


GC ta Gates 
ka UC Diir 
SC EE 


NTCHAR (ENDS FILE); 


O  taAtHOHt 


HR 


DISP 


rw 


Is P 
BYT 


[д Hurd ma 


ROCEDURZ; 
E; 
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PT a Obs 


BEGINS WRD: PR 
DE! WHILE 
' CALL BA 


'BEGINSWRD; 


zn 
ABD Wie 


ZENEHDOOP PROCEDURES CALLED FROM THE LINE 


A: PROCEDURE: 
ODES$A = CODESA + 1; 
ND INCSCA; 


: PROCEDURE; 
RA = ERRA + 1; 

D INCSER: 

L i: PROCEDURE 

E NPTR <= DLSLEN; 

ROMPT THEN CALL 
ALL ECHOSON: 

F + NPTR + 1; 
know, 


$ 
E 
Š 
Dis PROEF 
D 
L 
R 


E OLDSTOSNEW: 
SE 


D) 


G 
U 
RE 
E 


Di 
= 
Or 
Ce 
WO «< 
“ua 
Ui tg 
by 


a .. 


DAS EDADES PER 


H 
m» 
G 
>D 


D 
R 
$BU F+1; 

UF = 0; 
T So EOC ; 


1 (baonpr) THEN CALL PRINTCHAR (D) ; 
€ 


M 


Em tis 
GOPI О СО OnDOAHoDAzZ<lvVe O Il = 


writ SOU Lim Mrd 


> 


= 


Mixer 


END; 
CALL 
CALI 
END 4 


SETBETR: 
DO wr 
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CHARACTER TO 
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FOLLON 


EDI IE 7 









END ; 

CALL INC$DA; N 

BERRA,ERRA = DATSAREA: 

CALL INCSDA: 

DO WHILE DAT <> ERR: 
CALL INC$DA; 

END: 

CALÍ INC$DA; 

PROMPTSARE% = DATSAREA: 

END SETSPTR: 

NEXTSDE: PROCEDURE; 

CALL MOVESCODESOLD: 

CALL INC$DA; 

CALL SETSPTR; 

END NEXTSDE: 

UPDATESTAT: FROCEDURZ; 

DECLARE T ADDRESS, (1,A) BYTE; 

INSSINC: PROCEDURE; 
BODEUSCONBUR(I): I9 I + i; 
CALL INCÍCA: 
END INSSINC: 


CODESA - B$CODESA + DL$LEN; 

ш = DBELSNS1; 

DO WHILE (A:=I <= NPTR) AND (I <= OBUF); 
CALE INS SINC; 


I? A THEN /* CODE LIN 


E HAS GROWN */ 
DO; 
DO WHILE I <= NPTR+1; 
IF CODE = ERR THEN /* AT ERROR CHDS */ 
CALL ERROR(O); 


ND; 
СОРе = ЕОС; 


END: 
PLSE 
Do. 
CODE = EOC; T = OLDSBUP+OBUF+1: 
DO WHILE (CODE$A :=CODE$A +1) < T; 
CODE = 0; 
END; 
END: 
END UPDATESDAT; 


/* жжхХхжжж жж жж жж жжжж жж жж жж жож жж жож жож ж ж ж жж ж жож жож ж жок ж жж жк ж жж жж 
ERROR MODULE 


Poteet O TO CHECK FOR POSSIBLE 2RROR CONDITIONS. 
Emme OR COMMANDS ARS DEFINED EN DOSCMD PROCEDURE. 


MARA A RR ERE A AR O K R KR OK RE RR KERR 


BEES'SUTER: PROCEDURE; 
Sarl MOVESTOSOLD; 
COLI PRIN : 


EED 
CALI PRINTS$NENW; 

NTER 
DECLARE I 


1 
D 
CALL PRINT Ac 


102 








CALI CRLF; 
END WARNING; 


INCSNE: PROCEDURE; 
NB = NB + 1; 
END INCSNB; 


SP$PD$COM: PROCEDURZ 
DECLARE SPACE LIT 
SIR Esp 


R (TN = PERIOD) OR (TN = COMMA)); 
2 
WP OR (Gen SS AD 


OC EDURE; 
{ENS>SLASH) OR OR (TN<>LBRACE) OR (TN<>RBRACE); 
OT (ALPH 


CALL WARNING(1); 
RETURN; 
Pe De 
CALL INCSNB; 
ED 


E 
END CHKSALPHA; 
AMAR IC: an: B 
Pech ln ! 
3 icon ; 
END NUMERIC 


meu NUMERIC: PROCEDUR 


* ez 9) OR (TN - 2DH /* MINUS */) 


“es OK 


E 
DO WHILE (TN<>SLASH) OR (7 N<>LBRACE) OR (TN<>RBRACE); 
ТЕ NOT (NUMERIC) THE 
CALL WARNING(2); RETURN; END; 


W 
e INC$NB; 


END; 
END CHKSNUMERIC; 
NEXTÍSF: PROCEDURE 

DO WHILE CODES>SLASH) OR (CODE<>LBRACE) 
OR (CODEX>RBRACE) ; 

$ CALL INC$CA; 

oL INC$CA; 

DO WHILE DATO LBRACES OR (DAT<>SLASH) 
OR ! AT<>RBRACE) ; 
CALL INC$DA; 

END: 

CALL INCSDA: 

CALL INCSNB: 

CALL INCSER: 

END NEXTSSF: 

CEK3PERCENT: PROCEDURZ; 

RUIN Y, Z, 4, PCT) BYTE; 

CALL INCSER; 

GATT INCSER Dee 

iEn 

Y = DIGSTOSNUM(DAT) ; 
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IF XY THEN Z=X- 
ELSE Es 
IF (2/4) > M THEN 
L WARNING (3) ; 
END CEK$PERCENT; 


(Ту 
DAT<>SLASR) 


C2 Fri 
Oz 
oO 
Aie 
Ss 


(EN <>SLA SE) 


OR (TN<>LBRACE) 
INC $N 


HE 

> 

ds °. 
mt 


Fr 
HHU Z bit 

J 

Di Da MM 


je. 
С) 
= 
OPOoon tata 
Hu E 


С) 
mn 


AE NING (5 
Н; E 


tt n4 


DO Ga 


tj 
G xir 


FRO 
E 
ECM 


D 
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Lg od 
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ty 
rJ 
E 
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= 


tive 
air 
-L 


sIOOHO 


NZOVWE ram Margot pee ee uen! > Ot 


(ECMD 


Cisne HH 


tu A 
AVA 
CO 
UJ 
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С) 
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se ir $) 
trj => = C ) rcJ 
SNCS ar Ех 
yo Op 


H 
txt 
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(ECMD 


ti H 
GHNOG Gayo mm 


H 
rx] 
ty 
С) 
VOU std 
O > O m= 
p © 
st Has 
= 
tAOOHO 
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wY ANAO 
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= 


сар 
Vos 


(ECMD 


FL PO Єз 


SLASH) OR 
ERASE) 


tJ A 
WY Ari 


Ve 


ty YOL OQ 
se Hier $) 
tute Ob! 


© 
ato 


TI 


ty 
С) 
DOOD SE 
O > O = 
fie. 
xi^ 
de 
std OOHO 


E 
= 
DO AC) 


se 


td A 
=з 


won 


QtJ THOS үну ш 


CHE O 


(ECMD 


ta AN 
vba 
r 
uu 
=> 
рә ры 
OU 
ty 
ee 
© 
rÜ 


Ri Ace HE si 
me of 


ТЕ 


aR 


(ECMD 


Lx] V Ne 
V 
tuu 
O t~ 
m p> 
au 
td Ad 
er uu 
O 

= 


A 


NAB 240003 ZUNDEN 
txJ 


OO Uri 


DI 


END; 
LL ERROR 
D DOSCMD: 


C I PERR: PROC FDURz; 


WARN = FALSE 
DO WHILE ECMD <> ERR; 


et OH) 


CA 
EN 
R: 
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<> 


<> 


OR (TN<>RBRACE) ; 


LBRACE) 


LBRACE) 


LBRACE) 


LBZACE) 


LBRACE) 





LE es SLASH) OR (ECMD-LBRACZ) OR (ECMD-RBRACE) 


CALL NEXTSSF; 
CALL DOSCMD; 
IF WARN THEN RETURN, 
CALL ENCER; 


END: 
END CHKSERR; 


ASKSQUESTION: PROCEDURE: 
DO WHILE (DAT <> SLASH) OR {DAT <> LBRACE) OR 
(DAT <> RBRACE 
CALL PRINTCHAR| Ат); 
CALL INCSDA: 


END; 

END ASKSQUESTION; 
CHK SANSWER: EE 

WARN 


DO WHILE (eia <> SLASH) OR (ECMD <> LBRACE) OR 
(ECMD <> RBRACE) ; 

CALL DOSC 

Ir WARN THEN RETURN: 

CMLL INCSER; 


CHKSANSWER; 

EROCZDURE; 

CLDSEUF + DLSLEN + T; 

NB:= NEWSBUF*DLSLEN*1) > NEWSBUF + NPTR THEN 


¡ARNING (0); 


D; 
D 


Di 


E 
E 
NDSI 
O 
iH 


TE INITIAL (FALSE), 


ee STZESNBUF; 
; = AHPERSAND THEN 
БОТ РОК СОЙЙАЧО ЖУ 


Ee enge ИРЕК5ЗАНО); 


(CHAR: =READC) < CR; 
IN? CHAR (EDS BUP (1) : :=CHAR); 


tyr 


ae 


H rog 
= 


er H il re 
FU 


, 


H 
"ij 
tj 

> 

HA 
D 
= 
ET 


= IC!) AND (EDSBUF(2) = 'H') THEN 
3E COMMAND */ 


live > Im DO jewo 


Ozon Sa 


O 
E; 


F(I) = BLANK; 


NH OAO tr 
3 3] 774 


2 Do THEN 


wt + 

cory 

se DA 
At 


С) 
pos 
E 
Ei 
OHH ODM 


Dez DE AND 
OBUF (OPTR)) ; 


OPTR+1) > OBUF THEN 
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an CALL ERROR(9); 
IF (EDSBUF(I) <> OBUF(OPTR)) THEN 
/* LOOK FOR NEXT OCCURRENCE */ 


I = LTR; 
CALL COPYSON (EDSBUF(TI)); 


? 


EL 
FOUND = TRUE; 
END; 
CALL ENTER; 
DO WHILE EDSBUF(I+1) <> SLASH; 
= NBUP (NPTR:=NPTR+1) = EDS$BUFP (I: =I+1) ; 
CALL ENTER; 
ы CALL PSMOVESON; 
IF(EDSBUF (1) = 'D') AND (EDSBUF(2) = 'E') THEN 
/* DELETE COMMAND */ 
CALL DELETE (FALSE); 
__/* DELETE OLD BUFFER, DO NOT ECHO PERCENT SIGN */ 
LE (EDSBUE (1) = 'F') AND (EDSBUF(2) = 'I') THEN 
Z* FILE COMMAND */ 
CALL MOVESIOSOLD; 
TP (EDSBUP (1) = '9') AND (EDSBUF(2) = 'U') THEN 
/* QUIT COMMAND */ 
GO TO ENDEDIT2; 
IF EDSBÜF (1) = 'N') AND (EDSBUF (2) = 'X') THEN 
/* EXT COMMAND */ 
M = DIGSTOSNUM (EDSBUFSPTR+3) ; 
DO Isi TO M; 
CALL READSMORE; 
END; 
CALL MOVESCODESOLD; 
CALL PRINTSOLD; 
ОРТА, NPTR = 0; 
IF EDSBUE (1) = '§') AMD (ED$BUF(2) = 'P') THEN 
7% P GOM HAN */ 
M = DIGSTOSNUM (EDSBUFSPTR+3); 
DO I=1 TO M; 
DATSAREA = DATSAREA - 128; 
JP N DS; 
CALL MOVESCODESOLD; 
CALL PRINTSOLD; 
OPTR, NPTR = 0; 
TE ZDSBUF (1) - nw AND (EDSBUF(2) = '0') THEN 
7% EROMPT-ÓN COMMAND */ 
PROMPT = TRUE; 
IF (EDSBUZ 1) al ) AND (ED$BUF (2) = 'P') THEN 
/* NO-PROMPT COMMAND */ 
EROMPT = FALSE; 
IF (EDSBUF(1) = 'I') AND (EDSBUF(2) = 'N') THEN 
/* INSERT OMMAND */ 
CALL ENTER; 
INSERTION = TRUE; 
END; 


END ; 

EE c- cruz TdBN /* CONTROL CHAR */ 
DO CASE CHAR; 

/* CAS 0 NULL */ 


° 
9 


/* CASE 1 CONTROL A */ 
CALL BACKUP; 


/* CASE 2 CONTROL B */ 


rg 
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CALL MOVESTOSOLD; 


/* CASE 3 CONTROL C Se 
CALL COPYSONE; 


nd CASE 4 CONTROL D */ 


DO ALL PSHOVESON: 
GO TO ENDEDIT1: 


/* CASE 5 CONTROL E */ 
CALL ENTER; 


/ CASE 6 CONTROL F */ 
GO TO ENDEDIT2; 


ATMUCEASE TJ CONTROL G */ 
CAPL PRINDsSBOTH:; 


/* CASE 8 CONTROL H */ 
CALL PSHOVESON; 


/* CASE 9 CONTROL I */ 
CALL PRINTSTAB; 


ASEC ASE 10 CONTROL J */ 
GOM HD EDIT i; 


/* CASE 11 CONTPOL K */ 


/* CASE 12 CONTOL L */ 
CALL COPYSRMSOSN; 

* CASE 13 CONTROL M */ 
GO TO CARRIAGESRETURN; 
/* CASE 14 CONTROL N */ 
CALL BS$OSN; 

/* CASE 15 CONTROL O */ 

CALL COPY$ON(READC); 

/* CASE 16 CONTROL P */ 
CALL DELETE (TRUE) ; 

/* CASE 17 CONTROL Q */ 
CALL DELSN; 

/* CASE 18 CONTROL R */ 
CALL DISPLAYS RMSOSN; 

/* CASE 19 CONTROL S */ 
CALL DEL3O; 


ИЖЫСАбСЕ 20 CONTROL ТУ 


/* CASE 21 CONTROL U */ 
CALL COPYSON(TAB); 

/* CASE 22 CONTROL V  */ 
CALL ESCAPE; 

/* CASE 23 CONTROL W  */ 
CALL BEGINSWRD; 

/* CASE 24 CONTROL X */ 
CALL DELETE (FALSE) ; 


/*CASE 25 CONTROL Y */ 
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DO: 
CALL P$MOVESON; 
CALL MOVESTOSOLD; 


END; 
/* CASE 26 CONTROL Z */ 
CALL COPYSON(READC) ; 
EL Pi CHECK SPECIAL CASES */ 
CARRIAGESRÉTU AN 


Se - CR) AND INSERTION THEN 


PRINT(.' EXPECTING A FILE OR QUIT COMMAND $!); 
COREL ENTER; 
mor TION = ALSE; 


END; 
TE CHER = RUBOUT THEN 
CALL BACKUP; 


ELSE 
CALL PRINTCHAR (CHA 
NBUF (NPT R:= NP SI 
NPTR - 72 THEN EE PRINTCHAR (BELL) ; 
Ir pu ein THEN OPTR = OPTR + 1; 


END; ve DO WHILE */ 
/* ARRIVE HERE IF BUFFER PULL */ 
CALL PRINTCHAR (BELL) ; 
PNDEDIT1: 
ENDEDIT2: CALL CRLF; 
END LEDIT; 
Pm KR AK eK Xx X < X DX X < XK XK XK XK XK XK AK KH oe OK eK KK OK KK OK KK OK KK OK KK k 
OUTPUT MODULE 


BUNETTEN: TO UPDATE IHE DAT FILS À 
Mme OneekT ION JUST EDITED 1O THE MESSAGE 


xc É OK OK ROR RK KAKA A RK KK RK RK RK RRA RK RK KK KEKE 


d 


Ü 


trJ < 


DAE 
ILE. 
KKK KKK OK / 


ERCSNSG: PROCEDURE; 
IF (MSGSAREA:= MSGSAREA + 1) < 100H THEN 


(.MSG$FCB) € 0 THEN 
CAEL ERROR (U); 
1; 


IF (DAT = L ) OR (DAT = RBRACZ) THAHEN 
C 


ELSE 
= T THEN 
А 


É 
CALL IN 
CALL I 
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4RITESUSG: PROCEDURE; 
x cnm 
IF DISKWRITE ( .MSGSPCB) <> 0 THEN 
CALL ERROR (4) ; 
END WRITESMSG; 


CLOSESFILES: PROCEDURE; 
IF CLOSE(.MSG$FCB) = 255 THEN 
CALL ERROR(7) ; 
DFCB(12) = SAVESEYXT; 
DFCB(32) = SAVESRN: 
IF CLOSE(DATSFCB) = 255 THEN 
CALL ERROR(6) ; 
END CLOSESFILES: 
BLANKSBUP: PROCEDURE; 
ARE A ADDRESS, (B BASED A,I) BITE; 
pr - .BUFFER; 
DO I = 1 TO 180; 
JS PO A = A + 15 
END; 
END BLANKSBUP: 
BASESNEXTSDE: PROCEDURE: 
DECLARE I BYTE: 
DO I = 1 TO WMPT TR (2) 
og BSCODESA = BSCODESA + 128; 
END; 
HORKSMAP = WORK$MAP + 3; 
END EASESNEXTSDE; 
UPDATESDATSPILE: PROZZDURE; 
WORKSMAP = . MEMORY; 
BSCODESA = BASFSDATSARZA: 
DO WHILE ESCODESA < TSDATSAREA; 
CALL MOVESMSG: 
DECE (12 = WMPTR; 
DFCB (32) = WMPTR(1); 
GAL SE DHA (BSCOBESA) ; 
IF DISKWRIT (DATSFCB «» 0 THEN 
CALL ERRO (8); 
m CALL BASESNEXTSDE; 
CELL SETSDMA (808) ; 
END UPDATTSDATSFILE: 


E TD: EO ZE 
Р: 
DO TBE, -e < TSDATSAREA) ; 


“DO FÄLLE DAT 
CALL AS 


END: 
ELSE 


DOS 
CALL LEDIT 
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CALL ENDSIP; 

END: 

IF WARN TEEN CALL RESENTER; 
ELSE 


CALL UPDATESDAT; 

CALL BLANK$BUF: 

CALL BASESNEXT SDE: 
DATSAREA,CODESA = BS$CODESA 


END: 
IND /* DO WHILE */ 


CALL UPDATESDATSFILE 
TE Se T HEN 


CALL READ$MORE; 
ayo? TO CONTINUE: 
CALL WRITESMSG; 
CALL CLOSES$FILES: 
GO TO BOOT: 
END EDIT; 


f*** heck START MAIN PROGRAM HERE *****% SA 


OLD»5BUF = (NEWSBUF :- . BUFFER) +90; 

OBUF = 0: 

CALL INIT; 

CALL SELSWE: 

CALL RESSELECT; 

CALL SETSMEM; 

CALL READSDAT: 

CALL LIFTHEAD: 

TSDATSARSA = DATSAREA: 

BSCODESA,CODESA, DATSAREA = BASESDATSAREA; 
WORKEMAE = . MEMORY; 

GALL CRLF; 

CALL PRINT(.'DO YOU WISH TO BE PROMPTED?$'); 
CALL PRINTCHAR (CHAR: = READC); 

CALL CRIF: 

I?» CHAR - 'Y' THEN PROMPT - TRU?; 

CALL EDIT; 

EOF 






JR KEER KEER RR OR RR RE EE 
x 


E 
) CREATE PROGRAM a 


KRETA K * / 


yay RE KERR OER RE KERR ER BR AE KERE RE ER KERR EK ER ROER KOEK EK EE RE RR EK K K 


EROS MED TENE ED TO CREATE DAT EXECUTABLE FILES USED 
IN CCNJUNCTION WITH R&PORT ORIGINATION SYSTEM eee 
Beets DESTENEN TO GENERATE FORMATTED REPORTS. 


KEER EK KERR RE RR RR RARR HR MR RR RR dk RR MR de ER RE ER kk EE ER RE AE EE 
1003: 


AT REKE ER RR RR RR ME ER AE KEER RE ER ER ROER N RE RR RE REK N REK KERE RE N N K K 


INITIALIZ2E DECLARATIONS 


ER RR RE RR EE RE RE RE RE AR MR MR RE RR RR RR ER RR EK RE RR RE EER RA RR RR RE RR 
DECLARE 


LIT LITERALLY ' LIT ERALLY', 
BOOT LIT '0' 

ENTRY LIT "00052" 

TRUE mun '1', 

FALSE LIT o 

FOREVER — LIT 'WHÍLE TRUE!, 
CR LIT '0DH!, 

F LIT '0AH*; 

DCNT BYTE, 

CTI mu tot. 

CTS LIT vin: 


UE RR TEER ER EE RR RE ROER OE RR RE RR RR ER MR EE KERE RE RR EI Ok ER RE OE EE 


INPUT AND EDITING DECLARATIONS 


EE EE EE E EE EE EE EE EE EE EE EE EE EK EE E EE KE 
DECLARE 


BS LIT '08H',  /* BACKSPACE Sa 
PERCENT LIT  '25H', 
BELL LIT '07H', 
TAB LIT 'O9H', ' 
FOP LIT '52H', /* UP-ARROW; END OF PROMPT */ 
ENDSFILE LIT '5CH', /*BACK SLANT */ ` 
EOC LIT ICH!) /*BAR: END OF CODE */ 
ERR ETT ‚ЕН, /* TILDE; END OF ERROR */ 
CTLZ LIT "1A 
BLANK LIT '20H'| 
AMPERSAND LIT  '26H', 
Caan SH LIT '2РН', 
LBRACE LIT '7BH', 
es UP ND 
RUBOU 
DATSFCB ADDRESS INITIAL (5CH), 
DECB BASED DATSFCB (33) BYTE, 
et a EEN É 
ZK iM 
RECCRDSMAP ' ADDRESS, 
3MPTR BASZD RECORDSMAP BYTE, 
EXT BYTE INITIAL 0), 
SAVESEX BYTE INITIAL(O), 
SAVESRN PYTE  INITIAL( se 
S 
SP BASED STORE BYTE, í 
К ES 
SPT S 
BUFFER (189) BYTE, 
SIZE$NBUF LIT '90',_ 
NEASBUF ADDRESS, 









BASED NEWSBUF BYTE, 
ҮРЕ 


ADDRESS, 
BASED OLDSBUF BYTE, 


BYTE 
BYTE INITIAL (FALSE), 
Eu m 
K LIT '‘OFF80H', /* GIVES MEMORY SIZE 
PLES OF 128 BYTE BLOCKS */ 
DRESS INITIAL (90965 , 
ED BDOSA ADD 
RECSMAPSWRITTEN) BYTE INITIAL (FALSE), 


FSPTE) (100) BYTE, 
TI 0), 
ITAL 0); 


DJ 
G 
mad 


Om ry ttHYt 
nj 
E 


Gs CO 
{43 


D ENHOONZZ 
ыз 
HN 


DO Du EI un 

E E DJ UJ EH 03 

OOOVDRUO UPUHOaUMO 
MEARUOLIOU Hd ER 
IDE RHN» A 


GOTTA: EROCEDURE BYTE; 
- E INPUT(CTS) ; 
E 
RETÜRN NOT PAEBI (CTI) AND 07FH>s 


EHD CRTIN; 
ADC EROCEDURE BYTE; 
ae GELE CHARACTER Gen TH EONSOTEZAIDITRANSLEATEZ TO 


UPPER CASE 
DECLARE С 3YTE: 
IP (C2=CR TIN) >= 11030001B /* LOWER CASE A */ 
AND C <= 01111010B /* LOWER CASE Z */ THEN 
C = C AND 101$11118; /* BECOMES UPPER CASE */ 
RETURN C; 
END READC; 
MON1: PROCEDURE (FUNC, INFO) 
DECLÀRE FUNC BYTE, INPO ADDRESS; 
GO TO ENTRY: 
END MONI; 


MON2: PROCEDURE (FUNC,INFO) BYTE; 
DECLARE FUNC BYTE, INFO ADDRESS; 
GO BO ENERY; 
END” HON 2; 


MON3: PROCEDURE (FUNC, INFO) ADDRESS; 
DECLARE FUNC BYTE, ENTO MADD RES, 
GO MO ENTRY; 
END MON3; 


PRINTCHAR: PROCEDURE (B); 
DECLARE B BYTE; 
CALL MON1 (2,B); 
END PRINTCHAR; 


PRINTCHARI: PROCEDURE (C); 
DECLARE C BYTE; 


nC AND 110500008) = 0 /*! CONTROL CHAR */ THEN 
DC; 
CALL PRINTCHAR (EOD); 
CALL PRINTCHAR(C OR 40H); 
END; 
PLSE CÀLL PRINTCHAR (C); 
END PRINTCHARI; 
CRL?: PROCEDURE; 


CALL PRINTCHÍA (C RY 
CALL PRINICHAR(LF 
END CRLF; 


PRINT: PROCEDURE (A); 








DECLARE À ADDRESS: 
CALL MONT (9,A) ; 
CALL CRLF: 
END PRINT; 
MOVE: PROCEDUR (SOURCE DEST, N); 
eco A DURE Desh ADDRESS ; 
BASE SOURCE, DAM HE DEST, N) BYTE? 
DO WHILE x: ius) <> 255; 
IA SOURCE=SOURCE+1; DEST=DEST3 
NU; 
END MOVE; 
PILL: SE, Ae BET, DEST,CHAR)S 
DECLARE (ST RT,DES AI ADDRESS. 
i (S DA ED STARI, CHAR) BYTE: 
DO RILE RI < DEST; 
S CHAR; 
START = STARTI + 1; 
DND. 
EUMD FILL; 
ERROR: D; 
DECLARE 1 BYTE; 
DONCASE I: 
CALL PRINT "LACK ERROR COMMAND SPACE $'); 
CALL PRINT ! DISK WRITE ERROR 51); 
UL PRINT IP TILESNOL ee 
ONLI CRLF: 
GO TO BOOT: 
END ERROR: 
DIGTE NUM: PEOCBDURE (STR) BYTE: 
E A STRING OF ASCII DIGITS TO A DECIMAL NUMBER */ 
DECLARE 
SER ADDRESS, 
s s ED STR BYTE, 
ven Peer lA L fo) 
ENIE INITIAL (0): 
DO walte min = BLANK; 
I = I + ; 
Ir STERNE), = CR THEN 
URN 1; 
DO KH E Sarid? Š HE is) x: SLASH): 
= Ss, (STR (I) 
1 = Se 


Un 
END DÍGSTOSNÜM: 
/ж жжжжхжж жж жж жж жж жж ж ж жж жж жж жок кж жок к Жок Жжжж ож Жок к жож жж жж KOR KOR KOR OR K 


INPUT AND EDITING MODULE 
A od a kk bh k e k kk Ak SA 


ER HED a ate. 


DEC MARE 

CALL MONT (9. TEXPECTING Die: 

DO: GAS EIE 
CALL PRINT .ı CODE INFORMATION $!'); 
CALL PRINT(.'ERROR COMMANDS a 
CALL PRINT ' VEROMPT INFORMATION S); 

END, 

END PROMPT; 

INCSRM: PROCEDURE; 
RECORDSMAP = RECORDSMAP + 1; 
END INC$RM: 
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GOSNEXTSREC: DROCEDURE; 

Vo LUCE ENTS STORAGE POINTER TO NEXT EVEN 
RECORD SECTOR * 

DO Pn SPER C STORE 
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cx 
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WON a 
U з= ш Ыг 
we {poo we 
EE] 
[т] 
к 
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HU 
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Org 
ul OtmWuG», UO 
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z O 
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Or ЫЗ 
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win 
mae 

l 
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I| G 
Fa 


QAS Iles = 
WANN PZO” ww 


ION Data 
OME СО] 


CB))<>0 THEN 


RAS IAQ | 
sei si tA. pjo550100100 


STORE 
12 
DAT $F 


ta 

= 

J 
wort 
NNO 
tail 
> me 


= 
=H Mx» 
NO dee O °° Í 


з 
O 
31 
-I UJ 
"1 сулы ОО) 
t> 
~x D rus 


— EI hy 
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JHON 


b)) <> 0 THEN 


tH 

Om + Dal 
txJ <+ > — OO 
ty hs hee 


Om M atj 
со 
O N. OQ 


“os. (N) 
“eo 


O Hu 


ORY OVERFLOW INCREMENTS STORAGE PTR */ 
J > PREM a eH 
VE 


D = FALSE) THEN 





CALL MOVESDL; 
CALL WRITE; 


` RECSMAPSURITTEN TE: 
END INCSSTORE; 


EL 
HHA O 


e 
GO > оно 


dS r: 


кт) 
F4 
Ë 
Es 
газ Сл» 


< 


S BASED A BYTE; 


O 
we tris EU 
RU mt 


N 
OJ 
DO 
О 
ta 


H 
О 
UJ 
G 
кт] 
te 

i 


Vo 


hu p1 OD 
dAUIOHG un 
OG Mn 
tree nÍ Ate 


BND Zr 


ENDSIINE: PROCEDURE 
/*® CHARACTER IS. i. САКАТАСЕ RETURN ^7 
CAILL GOSNEXTSREC; 
CSLL HOVESDL: 
CALL MOVESS 
SS 
$3 


OR 
p 


ee Ls 


OOO ZO Uwion) 
O 


каж rJ wan 
Lei 
HOOSSREO HEI 
+, МО К OO 
LOD ` Oe 


U) 
rÜ 
II 
tz] 
O 
С) 
DI etd HY 


ve N 
tz] 
Hy 
O 


CALL TNC 
CALL ZEROS 
CALL CRLE; 
CALL PROMPT 
END ENDSDL; 


EN DSREC.: DEE 
yw CALL 


* ° CU pj 


P 
ND Or DECODED INFORMATION 


O 
Hy 


Hub (Qutu OT 


CAIL GOSN 
CALL MOVE 
CALI INCS 
SIE š 


Pi 
O 
mg 


FA 
ROOF see 


SWRITTEN = FALSE; 


DO m m t >> 3 C) >> 

"n сч UU 
Cet tee tzi Il 

Pre 

OO UUUH RR < 

Он! шн О 


{т} mOOO 


END 5 


PROCEDURE; 


TARROW IS ENIERED FERON THE KEYBOARD. 
GR 


T 


DAR (|) INDI AITES END O~ CODE BABA *7 
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pm. RR > a ee xm OQ N —OX-— HA 
=E mel Hoe — = O m nm f: NEGE (007900 
DI Rom OO N e OM WI Ft mn bd Q Pi 
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=> ел н ООШ fim MRAM HT D UO (Or fy sl D efx] oo 


ARAM FNM em D AMNARIMON [Px f Amer DO He 
ALZA DON AA IRHERPIA aaa SY p JOB, 
FIORSUEHAEMAOR 9 mm >UMHU Ж O U-——f4 Ot 
RO O= m FA Pim mira VA ONZA Wegesu pO oqoezxo o ema 


AASHU NOMZ Oy EE O Je сс Ош ж) 2 
=й >, +] ki (nec Hai m ed p c) Ole 
OH Cn We eH iu ENDE SE Om = 

NN 42-210 VOII IA D MAA Ur O A 
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OPTR*1))); 


NPTR)); 


OLD O TO. NBW */ 


(OBUF (OPTR: 


n 
4 ° 


wp 
ы 


,OLD$BUF-*1, (OBU 
/* PARTIAL MOV 
116 


ABUF (NPTR:=NPTR+1): 
OBUF; 


DURE; 
R < 


END; 
CALIL PRINTCHAR (BELL); 
END BACKS$UP; 
PROCE 
LE OPT 
CHO$ON; 
SMOVESON; 


ERSE 
«HI 


CAIL E 
END; 


B 


ND P 


PSMOVESON: 
DO 





F3 
Ej di 


Kai a E 
OI 
pao. 


ERIN PROCEDURE: 


RE I BYTE; 
L 


G = 


OOH HOU 
22 OEE by 


O ty tA 


1 TO NPTR; 
L PRINTCHARI (NBUF(I)); 
END ; 


END PRINTSNEW; 


OR BCTH: PROCEDURE; 
CALL PRINTSOLD; 
CALI PRINTSNEN; 
END PRINTSBOTH; 


COPYSRMSOSN: PROCEDURE 
PescOris> REMAININ ИАНАСТЕН5 EGR OLD TY NEK BYE 


Gc 
DO WHILE OPTR <= OBUF; 
NBUF (NETR:=NPIR+ 1) 


m ma 


= OBUP(OPTR:=OPTR+1); 


END: 
CNEL PRINTCHAR (1+1) ; /* INDICATES WHEN DONE */ 
END COPYSRM$OSN; 
BSSOSN: PROCEDURE: 
/* EACKSPACE OLD PTR AND NEW PTR 1 CHAR */ 
IP (OPTR > 0) AND (NPTR > 0) THEN 
DO; 
OPTR = OPTR - 1; 
NPTR = NPTR - 1: 
OBUF = OBUF - 1: 
END; 
ELSE 
CALL PRINTCHAR (BELL) ; 
END BS$0$N; 


COPY$CN: PROCEDURZ {С ,NEXT); 
DECLARE (C,I,NEXT) BYTE; 
I=OETR; 
DO EE „OBUE (T: =1+1) <> C; 
IF OBUP THEN T NO MATCH */ 


ër, ss E ; 


ses RETURN 
; oe "bo WHILE * / 
ТР ok nein THEN I=I-1; 
DO WATLE ОР < I; 
CALL ECHOSON; 


END; 
END COPYSON ; 
DESEES PROESDURE (ECHO) ; 


/* ECHO TRUE INDICATES TO START FROM THE CURREN 
POSTTION OF OLD BUFFER AND ECHO A % (PERCENT) FOR 
DELETED CHARACTER. ECHO FALSE INDICATES TO START 
THE BEGINNING OF THE OLD BUFFER AND DON'T ECHS FOR 


PERS *y 





THE DELETED CHARACTERS. */ 


DECLARE (I,J,P1,CHAR1,ECHO) BYTE; 
IF ECEO THEN P1 0; 
SLSE P1 - OPTR; 
CHAR1 = READC: 
DO WHILE (OBUF (P1: a ab <> CHAR1); 
IP PI > OBUF THEN /* NO MATCH */ 
CALL PRINTCHAR (BELL); 
oy p RETURN; 


BND; D DOGeHILS  */ 
ioe nO. THEN 


R(PERCENT) ; 
END: 


NOW CONDENSE THE BUFFER n 


ST AU 
Eo. H 
Ed 


OH 
or 


JO Gh 


<= OBUF; 
J:=J+1) = OBUF(I:=I+1): 


E 
( 
UF - (P1-OPTR+1) ; 
Br 


CC? 
Hoja 


e 
E: 


DELS} 


E? t3 t3 rg 
Mr BOOOO till 


DISP 


COóOHUEED WAAQAZZ WOM JHU 
Gi Ur Gitt? 
Ja 


Om por Bree 


Mm Orb 


Ur: 
EVEN LINE */ 


LL PRINTCHAR (OBUF (I) ) ; 


THe 
E VO Ets 


=O ba 


Ci ek e 
ty Y 


Hj» e 


MO Uy PHPH HER Hwi. N 
td 


e 
= 


II rg 
rg 
OH OHUUY OU my 


tm O O ta 
Ulm tc 

ng 

TY wz Uut*riru 

i EI Ed 


NTCHAR (BELL); 


= t 
Ou 
O 


$ hi 
Du LtuO)Occip tu ES” je HIM AUNAN HAs. 
II O 


ty 
(л 
С) 
Da 
"NP BR 
13 
ay 


L MEANING OF CHARACTER TO FOLLOW 
RACTER IN NEW BUFFER 2, 
R: 


=READC) ; 
= CHAR; 


DI KG 20 ee xj p. 


= DJ > 

Eg 
UU > 
Og 


DrH var 
A A EA 


tC pte. 


С) 

© 

= 

rj 
ANA man 
Oz 
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END CONTSFILL; 


PRINTSTAB: PROCED UR 

IF Ait + th 
ALL PRINTCH 

ENS 

NBUF (NPTR: 
CALL PRIN 
END PRINTSTA 
BEGINSWRD: PROCE 
DO WHILE NEW 
CALL BAC 


END 
END BEGINSWED; 
PEDTT: PROCEDURE: 


RO eae 


DECLARE 
I BYTE, 
IER Ever, 
FOUND BYTE INITIAL (FALSE), 
M BYTE; 
/* READS CHARACTERS FROM THE CONSOLE AND ALLOWS EDITING 
USING THz PROCEDURZS OF A LINE EDITOR */ 
OPTR = 0; NPTR = 0; 
DO WHILE NPTR «€ SIZESNBUF; 
IF (CHAR:=READC) = AMPERSAND THEN 
/* BASIC LINE EDITOR COMMAND */ 
CALL PRINICHAR (ED D$BUF (0) :ZAMPEBSAND) ; 
DO WHILE (CHAR:=READC) CR; 
CALL PRINTCHAR(EDSBUF (I) :=CHAR) ; 
I = I + Sé 
END; 
IF (EDSBUP (1), = 'C') AND (EDSBUF (2) = 'H') THEN 
/* CHANGE COMMAND */ 
DO; 
I = 3; 
DO WHILE EDSBUF(I) = BLANK; 
I = I + 1; 
END; 
IF EDSBUF(I:=I + 1) <> SLASH THEN 
/* VIRSULE EXPECTED */ 
CALL ERROR(8); 
LIR = dee SIM 
CAMS pY30N (EDSSUP (LIR) , FALSE); 
DO WHILE FOUND = FALSE; 
DO WHILZ (ED$BUF(I) «2 s AND 
(ED3EUF (T) = OBUF (OPTR)); 
= + : 
IF (OPTR:=OPTR + 1) > OBUF THEN 
CALL ERROR(9); 
END; 
IF (EDSBUF (T) «» OBUF(OPTR)) THEN 
7/* LOOK FOR NEXT OCCURRENCES */ 
Dos 
I = LTR; I 
CALL COPYSON(EDSBUF(I), FALSE); 
END; 
ELSE 
FOUND = TRUE; 
END; 
CALL ENTER; I 
DO WHILE EDSBUF(I+1) <> SLASH; 
NBUF(NPTR:-NPTR*1)-EDSBUF (I:-I*1); 
END: 
CALL ENTER; 
CALL PSMOVESON; 
END; 


iio 





IF (ED$BUF(1) = 'D') AND (ED$BUF(2) = 'E') THEN 
/* DELETE COMMAND */ 
CALL DELETE (FALSE); 
/* DELETE OLD BUFFER, DO NOT ECHO PERCENT SIGN */ 
ER EDSBUP (1) = 1F1) AND (ED$BUF(2) = 'I') THEN 
/* FILE COMMAND */ 
CALL MOVE$TOSOLD; 
IF (EDSBUP (1) - !Q') AND (EDSBUF(2) = 'U') THEN 
/* QUIT COMMAND */ 
GO TO ENDEDIT2; 
IF (EDSBUP (1) = In!) AND (EDSBUF(2) = 'X') THEN 
/* NEXT COMMAND */ 
CALL PRINT(. NEXT COMMAND IS NOT IN CREATE PROGRAM 
EDITOR $'); 


TE EDSBUP(1) - 'P') AND (ED$BUF(2) - 'R') THEN 
L 

CALL PRINT (. i PRINT COMMAND IS NOT IN CREATE PROGRAM 

EDITOR $!); 
EDSBUF(1) = 'U') AND (ED$BUF(2) - 'P') THEN 

P COMMAND */ 

CALL PRINT (. 'UP COMMAND IS NOT IN CREATE PROGRAM 
EDITOR 3'); 

IF (EDSBUF "ul = ^w AND (EDSBUF(2) = 'O') THEN 

/* PROMPT ON COMMAND */ 

CALL PRINT(.! PROMPT-ON COMMAND IS NOT IN CREATE 
ZDITOR 5'); 

TF (ED DS3U? (1) = IN! ) AND (ED$BUF(2) - 'P') TEEN 

/* NO PROMPT COMMAND * 

CALL PRINT(.'NO-PROMPT COMMAND IS NOT IN CREATE 
EDITOR $'); 

TE EDSBUF m зт) AND (EDSBUF(2) = 'N') THEN 
VO aid as 

CATE PRINT (- pe CÓMMAND IS NOT IN CREATE 
E ; 


ГО< I CTIZ THEN 78 CONTROL CHAR */ 
CASE CHAR; 
a GAS O NULL */ 


, 


/* CÀSE 1 CONTROL A  */ 
CALL PACKUP; 


SFO ASP 2 CONTROL B Ef 
CALL MOVr= $šTIOSOLD; 


/* CASE 3 CONTROL */ 
CALL C OBYSONE; 


dë CASE 4 CONTROL D */ 
DO; 
CALL P$MOV=SON; 


GO TO ENDEDIT1: 
END; 


Hj «e 

TS 

iG 
От» 
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Z* CASE 9 GONTROL I "es 
CALL PRINTSTAB; 


/* CASE 10 CONTROL J *y 
GO TO ENDEDIT1; 


/* CASE 11 CONTROL K */ 


/* CASE 12 CONTOL L */ 
CALL COPYSRM$SOSN; 


fo: CASE 13 CONTROL M */ 
CALL Eesen DS 
END? ENDSLINE 


/* CASE 14 CONTROL N */ 
CALL BSSOSN; 


/* CASE 15 CONTROL O */ 
CALL COPY$ON (READC, FALSE) : 

* CASE 16 CONTROL P */ 
CALL DELETE (TRUE); 
/* CASE 17 CONTROL Q */ 
CALL DELSN: 
/* CASE 18 CONTROL R */ 
CALL DISPLAY$RMS$OSN; 
/* CASE 19 CONTROL S */ 
CALL DELSO; 

* CASE 20 CONTROL T ¥*/ 
CALL CONTSFILL; 
/* CASE 21 CONTROL U */ 
CALL COPYSON(TAE,PALSE); 
/* CASE 22 CONTROL V */ 
CALL ESCAPE: 

* CASE 23 CONTROL W */ 
CALZ BEGINIWRD: 
/* CASE 2ü CONTROL X */ 
CALL DELETE (FALSE); 
(*CASE 25 CONTROL Y */ 
dM PSMOVESON: 
CALL MOV ESTOSOLD; 


/* CASE 26 CONTROL Z  */ 
CALL COPY $ON(READC,TRUE); 


e EAS EOS 


Om 


tz 
Diren O Nap) 
=O QA QUA 

ES 

ep 
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EOF 


ELSE 
TF Ge ` DRR THEN 
CALL PRINTCHAR (CHAR): 
CALI MOVESTOSOLD: 
CALL ENDSERR: 
END; 
ELSE 
ТЕ = EOP THEN /* END OF PROMPT INFORMATION ж 
CALL PRINTCHAR (CHAR); 
CALL MOVESTOSOLD; 
CALL ENDSREC; 
END: 
GESE 
TE (in. ENDSFILE THEN /* END OF FILE */ 


CALL PRINICHAR (CHAR) ; 
CALL MOVESTOSOLD; 
CALL ENDSF; 


' CALL PRINTC! 
NBUF (NPTR: =! 
IF NOT (INSZE 
IP NPTR = 7 


EM Dis 
END; /* DO WHILE */ 
/* ARRIVE HERE IF BUFFER FULL */ 


СА PRINECHAR(BELL) ; 
EDIT]: CALL MOVESTOSOLD; 


HAR: 
OPTR = OPTR + 1: 
LL PRINTCHAR(BELL); 


/* | START MAIN PROGRAM HERE  */ 
OLDSBUF = (NEWSBUP := . BUFFER) +90: 
OBUF = 0; 
CALL MOVE(.'DAT', DATSFCB+9, 3); 
WÉI EE 
, DATSFCB) <> 255 THEN /*FILE EXISTS */ 
DI 


s, 

en de О: 
CALL PRINT(.' PILE ALREADY EXISTS Zu: 
GO TO BOOT; 


END 
IF sola 22, PAR - 255 THEN 
C ALL PRINT(.' OUT OF DIRECTORY SPACE St); 


eo. TO BOOT; 
IF (Delt: =NoN 2(15, DATSFCB)) = 255 THEN /* CAN'T OPEN */ 
CALL ERROR(2); 
GA HONT (12,0) ; /* LIFT READ WRITE HEAD  */ 
/* ARRIVE HERE WITH NEW FILE CREATED */ | 
DFCE(32) 2 1; /* RESERVE FIRST RECORD FOR RECORD MAP */ 
TMEM - (SBDOS - 1) AND MOD$3128$HMASK; 
CALL FILL (.MBNORY,TMEÀ 0}: 
SPTR,RECORDSMAP - .MEMÓRY: 
BSTORE = .MEMORY + (128 * 12); 
STORE = BSTORE; 
SPTR - STORE - 128; 
NUMSREC = 12; 
CALL PROMPT (Ò); 
DO FOREVER; 
CALL LEDIT; 
END: 
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